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De grote doorbraak. 


CAL WER?) 


zie blz.k 


hahhanhhnthhhahhnherthrsentnrte ree 
ACORN NIEUWS Uitg.Fed.Acorn Computerclubs Ned/B. 
Verschijnt 6-8 x p/jr. 


zal VE FLVEKATIE: 


PRINTEN: Nog beschikbaar: CMOS-geheugenprinten f 35, 
Club-SCHAKEL printen S 85,- 
Ancl. 7hLS133 
EPROM- programmer printen S Hs 
Besteilen: Giro 5244293,ten.v. Acorn Computerciub, te 
Malden. Zo mogelijk via uw Penningmeaster. 


MEDEDELING. voor de regionale bandjes archieven: 
Dinsdag 24 mei jl, is Hans Kuiper bu een ongeluk om het 
teven gekomen, Hans was de auteur van het progranma FAX. 
In dit programma staat voor meer informatie zijn adres 
en telefoonnummer, Wilt u s.v.p. dit adres en telefoon 
nummer vervangen door dat van ondergetekende? 


Nico Stad 
Plataanweg 47 
154k PB ZAANDLJK 
075-2808508 


REDACTIE-adres: Ton Otten, J.A. de Gravenlaan 17, 
2381 TA Zoeterwoude. 


DLAr=. INE AN, U, 1463: 15 juli 1963, 
AUTEURS: Zie pagina 29} 





IN DIT NUMMER: 


Blz. hb Kort verslag van de eerste Algemene Ledenvergadering. 
Ee 15 SNELHEID als hoofdthema, 


Se 7 AANDIJAINGES van Frans van hoesel om een programma 

zo snel mogelijk te maken, met Demonstratie-programma, 
ä ‘n Snelle SCHERM-S HRIJVLR door Klaas de Kaad, 
8 ‘'n EXPLOSIEF programma'tje door wim schreuder, 

“-10 Hoe snel is onze Atom, vergeleken bi andere micro's? 
Floating Foint is Let enige ercte (floating?) min- 
punt, BENCHMARKING door J.k, MAIKE, 

10 Het toetsenbord in een hogere versnelling, door Frans 
van Hoesel, 

IL Ten Otten dacht dat GULFVORM naet snelier kon; Frans 
van lloesei wist bete 

12 ken gestroomlijnde HEAL-TIMNE Ciuth, zonder extra harde 
ware, door Gerard Akkermans, 

13 Na de Fiets-u-ieter nu een JUG 
recio Noord, 

14 Jaap boldringh over snelle en langzame goniometrische 
berekeningen, met rocurrente betrekkingen!(sex in AN?) 

15 Van dezelfde auteur: AFDTANLE' op AARDL, met of zonder 
Jogging-Computer, 

16 WAARZEGGEK-programma, door Frane van Hoesel. 

17 Een EXTRA VIA aan uw Atom; hoe het wel moet en hoe het 
niet moet, door Gerard Borghaerts. 








G-tlomputer, van de 


18 
19-21 


22 
23-29 
2 
25-27 
28 
29-31 


31 
32-33 


34 


35 
3637 


37 
38-41 
ha 
42 
43 
hh-h6 
ur 
48-49 


Méér WRITE=PROTECT op uw CMOS-kaart, door Gerard … 
Borghaerts, 

STACK en QUEUE, ailes op een rijtje gezet door Frans 
van Hoesel, 

OVER DE WEG, stuurmanskunst door Frank de Groot, 


WISKUNDE-bl ok: 


‘STRING-Manipulaties, en 


STER-DRIEHOEKstransformaties, en 

'n Methode voor NULPUNTSBEPALING, atles door de heer 
J. v/d Graaf, een nieuw wiskunde-taient, 

DITO, maar dan anders, door Jaap Woldringh. 


HARTEKREET van Rob van Dort (en van uw redacteur), 
Verder leest u hoe u uw scherm kunt INVERTEREN in 

35 milliseconden, SPIEGELEN in 25 seconden en als 
klap op de vuurpijl: ATOM-STEREO als OPTISCHE ILLUSIE? 
'n BOEKBINDERTJE om Acorn Nieuws netjes op te bergen. 
Het verschil tussen een JMP en een RTS, fundamenteel 
bezien door Ton Otten, 

Aanpassing van de Schakelkaart aan 2732 EPROMS, door 
Bram Poot, 

Een MORSE-TRAINER, door F. Mepschen. 
STANDAARDISATIE van het ZERO-PAGE-gebruik, een lef 
waardig initiatief door Bram Poote 

Een LICHTKRANT, ook in grafische mode, door Joost de 
Wijs 

De ASSEMBLER-CURSUS, deel 6: "DE STACK", door Leen- 
dert Bijnagte. 

Een verkorte CAT, die alleen het eerste en het 
laatste blok print, 

DANSFIGUREN op uw scherm; het heet "LIFE" en werd ge 
schreven door F, Mepschen. 

Het getal PI, in 1000 decimalen, Van Hobbyscoop, be- 
werkt door Jaap Woldringh. 

FORTH-CURSUS:s de Cassette-interface en de Editor, 
door Gerard Akkermans, 

GRAPHIC-WINDOW reserveert een deel van het scherm 
voor grafieken, door Gert de Jager, 

'n Analoge JOYSTICK aan de Atom, Zó had ik het ook 
willen doen, maar de regio Noord was mij voor! 

De dichtstbijzijnde STANDAARDwaarden voor WEERSTANDEN, 
door Frens Mepschen, 

JOYSTICK-aanpassingen voor nog meer spelletjes, door 
Jan Wijnen. 

Klaas de Raad beschrijft ACORN-CALC,. 
KARAKTERSET-DEMO, door Tiny Verschuren, 

Hans Otten speelt op zijn MUZIEK-STICK, 

SINUSJES, en wat je ermee kunt doen, door Serge Mijn- 
gheer. 

Waardevolle TIPS, verzameld in het Noord'n, door 
Johan de Goede en Wim Schreuder, 

Van Karel van Houten een handig programma'tje om band- 
jes te copiëren: TAPE TO TAPE, 





e==++0000000000000oott=-, 


28 MEI 1983 


Kort VERSLAG: 






Aanwezig waren de BESTUURSLEDEN 
van 14 {van de 15 | Acornclubs 

tesamen vertegenwoordigend 
642 [van de nu 665) leden. 


Afwezig z.k. Zeeland. 
Behandeld en met alg. à 


stemmen goedgekeurd 
de verbeterde 


FEDERATIEVE STATUTEN. 





Idem: Het financieel jaarverslag 
van 1982 (tekort f 358.-] en de begroting 
van 1983 [geschat batig saldo [reserve] van f 2000.-} 


Met eveneens algemene stemmen werd volgens Bestuursvoordracht 
het nieuwe BESTUUR gekozen, te weten: 

Voorzitter: ARNO MILLENAAR 
Secretaris: G.H. BORGHAERTS 


natens 
eenen en 


Pen. meester: GERHARD VISSER 


De Voorzitter van de A.C.Belgie peilde vervolgens de inte- 
resse voor een FEEST WEE KEN D in Rendeux-Haut 
[Belgische Ardennen] op 26/27 November '83 dit ter gelegen- 
heid van de eerste Verjaardag van de A.C. Belgie ! ! 1 

Voor nadere gegevens: VRAAG UW BESTUUR ! 


Parallel aan de Algemene vergadering vonden vergaderingen 
plaats van de diverse "netwerken", t.w. REDACTIE , HARDWARE, 
SOFTWARE, ARCHIEVEN. Alles tesamen zo'n 60 Acornuiten. 


Vooral HARDWARE had de smaak tepakken van bitterballen en 
van appelmoes en ging welgemoed door tot middernacht ! 


Alles tesamen: Een zeer geslaagde contactdag: Alle lof 
voor de opkomst, voor de prima sfeer en voor de gastvrouw 
Marion Gruĳters,scheidend penningmeesteres. 


G.Borgbaerts, Secretaris 


a) 


b) 


c) 


f) 


8) 


OF; VAT TE DOEN ALS ShETE:ID BELANGRIJK WORDT. 


Gebruik afkortingen zoveel als maar mogelijk is. Elke 
letter die teveel) in het programma staat kost tijd 

(en geheugenruimte) 

Een puntkomma teveel of een spatie aan het einde van een 
regel kost zéér veel tijd. De interpretator geat dan nl. 
op zoek near een statement, Uiteraard is er niet zo'n 
statement in de BASIC en dus wordt er verder gezocht in 
de floating-point ROM. Ook hier bestaat geen statement 
‘puntkomra' of 'spatie' en dus wordt er ook nog eens 
verder gezocht in de utility-ROM, Pas als de com- 

puter ook hier niets vindt, komt hij tot de conclusie 

dat het misschien wel een puntkomma of spatie zou kunnen 
wezen. Al met al een aanzienlijk tijdverlies. 

Extra puntkomra's zijn gemakkelijk te voorkomen, Extra 
spaties aan het eind van een regel willen nog wel eens 
ontstaan doordat er met de COPY-toets net even iets te 
ver wordt gecopieerd en deze extra spatie dan niet wordt 
weggehaald met DELETE. Deze extra spaties zijn later moei 
lijk terug te vinden. Dus: niet te ver gaan met de copy- 
toets!!! 

Gebruik variabelen in plaats van constanten! 


0 REM TIMING Q REM TIMING 
10 FOR I=1 TO 5000 5 C=5;D=222 
20 K-K-5;L=L-222 10 FOR I=1 TO 5006 
30 NEXT 20 K=K-C;L=L-D 
40 END . 30 NEXT 
40 END 
18.8 sec ° 15.9 sec 


Het verschil wordt veroorzaakt doordat de computer bij 
een constante elke keer de karakters om moet zetten in 
een getal, terwijl bij een variabele het getal al gewoon 
in z'n geheugen staat, ° 
Gebruik labels in GOTO en GOSUB, 

Denk goed na over het probleem !!It 


Bv.FOR J=l TO 10 is langzamer dan: FOR J-1 TO 10 


FOR K=1 TO 19 G=AA(J)x2 
AA(K)=AA(I)x2-K FOR K-l TO 10 
NEXT K AA(K)=C-K 
NEXT J - NEXT 

NEXT 


Gebruik assembler voor die stukken van het programma die 
zeer vaak worden uitgevoerd, Machine-taal kan wel tot 

een factor honderd sneller zijn dan BASIC hoewel een 
machine-taal programma meestal langer is dan een gelijk 
waardig BASIC-programma. 

Gebruik tabellen of array's ipv. functies. Ais we bv. 
steeds een: sinus willen uitrekenen terwijl net geheugen- 
gebruik en de nauwkeurigheid niet zo van belang zijn, dan 
kan het handig zijn als je eerst eeh sinustabel maakt, en 
dan de waarde van de sinus gewoon opzoekt in de tabel. 


het programa ‘cirkels' is een op snelheid geschreven 
programma, sr wordt gebruik gemaakt van een sinus- 
annex cosinus-tavel en van een vermenigvuldigingstabel 
De vermenigvuloiging gebeurt in slechts 8l klokcycli 
(81 microsec)} en is op 7 bits nauwkeurig. 

Eet prograrna kan ongeveer elf cirkels per seconde _ 
tekenen ín moae 4, waarbij elke cirkel pestaat uit 256 
punten, 

Ôm 256 cirkels te tekenen zijn dan: 

65936 sinus berekeningen, 

65556 cosinus verekeningen, 

65556 plot instructies, 

131072 vermenigvuldigingen en slechts 

23 seconden nodig. 


De vermenigvuldiging die ik hiervoor gebruikt heb is 
(near ik aanneem) nogal bijzonder en behoeft wellicht 
enige toelichting. Een byte is opgebouwd uit twee helften, 
die gewoonlijk 'nibbles' (sprpek uit: nibbels) worden 
genoemd. Het byte #FL is dus Opgebouwd uit F en hb. 

De vermenigvuldigingstabel bevat alle 256 versenigvul- 
digingen van het linker- maal het rechter nibble, 

Dus als de tabel begint op bv. #3A00 en we willen het 
antwoord weten van 6x5 dan nEven we slechts te kijken 

op de plaats #3A65 waar dan het antwoord staat. 

Om nu het hoge byte van het antwoord van bv. 45xA9 

te bepalen zoeken we op in de tabel 5xA, 9xh en bxh. 
vervolgens tellen we op 5xA en 9xh en delen dit door 16 
(LSR A), hierbij tellen we nog 4x& op en voilà, 

De eerste 7 bits zijn altijd correct, terwijl het laatste 
(nulde) bit meestal goed is. Het gaat nl. mis als er van 
5x9 een 'carry' zou onstaan … In principe kan dit ge- 
makkelijk worden opgelost door ook 5x9 in de tabel op 

te zoeken, maar voor het programma ‘cirkels! is 7 bits 
nauwkeurig genoeg (behalve voor kleine cirkèls). 


Om nog grotere executie snelheid te verkrijgen heb ik niet 
gebruik gemaakt van de BASIC plot-instructies, maar van 
een machine-taal subroutine (uit de HASIC-ROM) die 

een puntje op het scherm zet. Daarbij moet #55 gelijk 

aan l zijn (set-point) en bevat #5A de x-coordinaat en 
#5C de y-coordinaat van het te plotten punt, Een JSR # F7B2 
zorgt er in dit geval dan voor dat het puntje inderdaad 
geplot wordt. 





B FEM CIRCLE 
5 DIALL2; PH23=0; PRAAL 1 
16 DIMT255,5(255+64) 
28 C=5+64 
20 DIMP-1 
ABU\mul tiply 
SäN AEXCD 
ArLLGSSTA BEBGAND EHFOGSTA KEZ (A) 
7A;LDA H8IGAND EHOF <D) 
BGURA HE2 (A) ;TAX 





PELDA WSLGAND ERFB;STA HBA CL) 

18BLDA #88;AND @HEF CB) 

118O0RA HBA CC) ;TAY 

1285EC 

138LDA T‚XGADE T‚Y;ROR A;LSR A;LSR A;LSR A; TAY 
148LDA HB4 (C);LSR A;LSR A;LSR A;LSR A 

1500RA #82 CA) ;TAX ' : 

16BELCITYAGADC T‚XGRTS; 

178\main 


188: 
190: 


LL2;LDA @1;STA #5E 
LUISLDX H86;LDA S,X sin; STA HEI;LDA #87; JSR LLO mul 


288ADE #91;STA HSC 

2IGLDX HB6;LDA C‚X cos;STA #S1;LDA #87;JSR LLB mul 
220ADC HPOGSTA HSAGJSR HFZB2 

23ADEC HS6GENE LLIJDEC #87;BNE LLIGRTS;) 


248 
258 
268 
278 
288 
298 
208 
318 
328 
334 
348 
350 
368 
378 
388 
370 
488 
418 
428 
438 
448 
458 
468 
478 
488 
498 
568 
518 
52e 
538 
548 
550. 
568 
578 
588 
598 
680 
618 


REM Multiply-tabel 


P‚"IK MAAK NU DE VERMENIGVULDIGINGSTABEL*” 
K=8 

F.I=4TO15;F.J=AT0 15 

K2T=1%J ; KeKt 1 

N. iN. 


REM Sinus-tabel 


P.’’*OVER DE (CO) SINUS-TABEL DOE IK EVEN WAT LANGER" * 
F‚1=8T0255+64 

I?S=4CSINCI/128XPID 1284 127.5) 

N.3Q=tLL2;G=ER0 

P."IK BEGIN MET TEKENEN ALS JE OP EEN TOETS DRUKT." 
P.* (STAAT DE STOP-WATCH KLAAR) *” 

LINKSFFE3 

CLEAR4 ; ! G=0; ?#36=0 ; *H87=0;LI .O;P.87 

E.‚I=1T0380 WAIT iN. ;P.$12" 20 DAT WAREN 256 CIRKELS."’‘“ 
P."EN DAN NU," 








REM Sinus met Ftoating-Point 


PP-E=N6BjF „1=1T0288;WAIT ;N. 
CLEAR4 ;MOVEB ,92;F „X=8T0255 ; DRAWX „A(SIN(X/128XPI) X64492) ;N. 


REM Sinus met sinus-tabel 

F‚I=0T0380;WAIT jN. 

CLEAR4 ;MOVE8 „92; F „X=6T0255 ; DRAWX , (5PX/2+38) iN. 
F.1=8T0398 ; WAIT jN. 

REM Random cirkels 

CLEAR4 ;h=H87 ; DO! GER. ; MeR, ;LI.0;U.8 


Frans van Hoesel le) 


)L. 


8 REM FAST OUTPUT 

1@ REM routine sebruikt 117 bytes 

2@ REM de plaats van de routine esn 
38 REM wordt bepaalt doart 
4© REM P op resel SQ 
S@ P=#28805 COPYKFES2, KFESC: P 
68 P'ile=P+16FP! 1EEbFESFAC 7 
78 RELOCHFCEA, #FD4F, P+16 

88 P!'ISB=HERERERGD 
B P'#EA=SERERERGB 
108 Z0E-PL256 5 #209=P/ 256 
118 END 


138 het nadeel van deze routine 
148 is, dat het printen niet meer 
158 noise-vrij sebeurtsmaar in de 
168 praktijk valt dit ers mee. 


188 Klaas de Raad 


Het volgende programmaatje van Wim Schreuder zet bliksemsnel het 
hele geheugen tussen BEGINADRES en EINDADRES vol met FF. 


Het kan gebruikt worden ter beveiliging van een bepaald programma 
tegen onbevoegd RURnen, bijvoorbeeld door in het te beveiligen 
programma een 'zelfmoordregel' op te nemen. Deze kijkt naar een 
bepaalde bytes bevat deze niet de afgesproken, geheime code, dan 
blaaat het pregramma zichzelf op! 


10 DIM LL3 

20 FOR Ia1 TO 2 

30 P=2800 

40 P‚#21l 

50C is 
6O:LLB LDX #80 MSB BEGINADRES 

70 STX #81 

80 LDA@ #00 LSB BeGINADRES 


90 STA #80 
100 LDY @ 400 






110 LDA gFr GEHEUGEN VOL MEI 
120:LLO STA(#BO),T 

130 IN 

140 BEQ LL 

150 JMP 110 

160:LL1 INC #81 

120 INX 

180 crx @ pon MSB EINDADRES 
190 ENE LÍ0 

260 RIS 

210) 


220 NEXT 1;P.$6;LINK LL3;END 


BENCHMARKING 


(naar aanleiding van een artikel in Micro Choice winter 1982) 


Om computers onderling te vergelijken worden vaak zogenaamde 


benchmarks zebruikt. 


Een benchmark is een set standaard testen 


die een indruk geven van de efficiëntie van machine, 


De in de wicroceorputerwereld meest gebruikte testen zijn die 
welke in 1977 door Kilobaud Magazine in Amerika werden geïntroduceerd. 
Het gaat hierbij om acht simpele programmas waarvoor nauwkeurig 

de looptijd moet worden gemeten. Je kunt dit doen door voor elk 
programma meerdere keren te-meten en dan het gemiddelde te 

nemen. (Ik heb de Real Timer van"âcorn Nieuws Noord” januari 

op 60 Hz. laten lopen. En de Atom zelf laten meten.) 
Als je de resuìtaten hieronder bekijkt moet je ook bedenken dat 
sommige van de andere machines zelfs op 2 MHz, lopen of twee 
processors hebben. In een geval is er zelfs sprake van een 


16 bits machine! 


145 PRINT'S*" 155 
2fg FOR Ket TO 194d 2óg 
395 NEXTK 37 
5JJ PRINT"E" add 
655 END 5gg 
658 
135 PRINT"S" 5 id 
2d Kf 2dd 
3d Kek+1 3gd 
31Â AzK/2*3+4-5 3 
47 IF K<iddd TBEN3ES 320 
5fD PRINT"E" 4dg 
6ÂD END 52% 
6d 
77 
19g PRINTS” Rigs 
IP Kf 235 
25 DIM M(5) 3óg 
357 K=k+1 33 
31 AeF/2*344-5 Jagd 
32% GCSCBTOL 355 
339 FCR Lel TC 5 44e 
335 M(Lj=A 5go 
340 NEXTL 650 
afg IF KPD THENIG 
5D PRINT"E" 
69% END 
TH RETURN 


De gebruikte statements en 






PRINT"S" 3 1ff PRINT'S" 
Kef 2ód Red 
K=k+1 39E Kek+1 
IF K<1dgÉ THEN3SS 315 AeK/K*K+K-K 
PRINT"E" adj IF K<1JHD TREN3GG 
END 5dg PRINT"E" 
EJB END 

PRINT"5" 6 14f PRINT"'S” 
Kef . …_ 29d Kg 
Kek+1 25d DIM M(5) 
A=k/2*344-5 3D Kek+1 
GESTBT EH 319 A=k/2*344e5 
IF K<tdÓf TREN39S 32 GOSCBT 
PRINTPE" 33f FOR L=1 TO 5 
END 34/ NEXTL 
RETURN add IF K<1gdp THEN3Gg 
PRINT"S* 3d PRINT'E" 
K-d GOS END _ 
Kekei 1f# RETURN rz — 
= . Def 
A=K"2 ) er 
B=LOG (K É 
C=SIN(K) ff id 

Z IF K<1AAf THEN3G zE 





PRINTHE" Á 
END VA ae 
= 


/ UNS 


structuren zijn bepaald elementair 


zodat geen reckt wordt gedaan aan de specifieke eieenschavpen 


en voordelen van 2e hetere 


Basics. Dat heeft ectter wel het 


voordeeì dat bi’na aìle computers de test kunnen doen zodat er 
inderdaad var vereeliiken sprake kan zijn. 





Paaror roet hij 
moeelijk hij de 


“runbaar” 
rssronkelijike 


maken van de testen cok zo dicht 
test worden gebleven. 


De Resultaten: & 





(alle tijden ir seconden) 


Casio FX7o2P 18,7 119,7 243,5 238,9 277,1 419, 5 643, : 90,5 :2051, 
Sharp PC1500 14,9 28,8 78, 8 Tej6 92,3 166,7 221, 50,5 : 731, 


ZX Spectrur 4,9 a,e 21, 20,7 25,2 68,2 BE, 5 251,0 : 3615 
TI 99/4A 3,6 976 ane 25,2 26,8 6150 zav4 32,3 1 273,5 
Tandy Color Conp.2,3 12,3 22,9 24,8 27,9 43,5 63,4 13,5 : 210,6 
Drapon 32 1,2 9,1 17,7 19,2 22,2 31,1 44,7 10,2 : 156,0 
Commodore 64 1,2 9,3 17,6 19,5 21,0 29,5 47,5 1!,3 : 156,9 
VIC 20 1,1 2,0 15,2 16,8 1P,1 25,4 A41,C 9,8 7 135,4 
New Brain 2, 6,6 17,4 17, 19,9 31,0 49,0 7,4 1 150,5 
Fujitsu F2 IR 6,8 17,2 16,4 17,5 20,1 49,5 6,0 : 144,0 
Osborne 1 1,5 4,6 12,1 11,9 12,9 36,1 49,6 6,2 : 134,9 
Apple III 1,6 7,2 13,5 14,6 16,0 27,1 42,6 7,6 : 130,5 
Sirius 1 1,8 5,2 10,6 10,9 72,6 23,4 35,9 11,3 : 111,9 
BBC Micro OR 3,1 9,2 RT O1 13,7 21,3 5,3 70,2 
Acorn Atom C‚f 5,6 10,0 11,3 14,9 20,6 32,6 216,9 : 372,5 
1 3 2 3 4 2 2 15 13 


De conclusie is dridelijk:die Floatinppoint van ons is duidelijk 
vaor verbetering vatbaar, Zouden we bijvoorbeeld de Floating point 
van de Tandy Color Computer hebben (no. 10 bij test 8!) dan was 

de Atom op de BBC na de snelste, En dat terwijl de BBC op het onder- 
deel Floatine point de snelste is. 


J.R.Marks 





Nu we het toch over snelheid hebven, nog een klein pro- 
gramma dat de snelheid van _ het toetsenbord opvoert, 
Dit is vooral handig in combinatie met de REP-toets. 
Het programma werkt echter niet voor de cursor-toetsen 
en de LOCK-toets. 
O REM FAST IKPUT 
19 DIM LL1;P.$21 
20 F‚.I=l TO 2;P=#+2800 
3OLUPHP;CLD;STX #E4;STY #E5; 
40 :LLO; BIT ‘4 BOO2; BĲc LLl; dsr *FE/1;BCC LLO; 


De > pe :LL1; $LDX ER Oh; JSR #FB85; JKP #FEA?' 
- z kj 


70 P.86;N. 
80 24 20Â=0; ?#20B-#28 
90 END 
Voor snelle jongens mag de 4 op regel 50 worden veranderáà in 


een 1! FRANS =7 
10 


GOLEVORM 


In een aflevering van Acorn Nieuws als deze, waarbij "snelheid" 
het thema is, mag een vervolg op mijn verhaal "Golfvorm" zeker 
niet ontbreken, 

Dit verhaal concentreerde zich immers op een programma'tje, dat 
zo snel mogelijk het geluidsbit aan- en uitzette, volgens een be- 
paald patroon, 

Welnu, het gegeven programma kan nòg sneller, aldus Frans van 
Hoese}, Kijk maar: 


:LLO LDA @BITEEN /2 us/ Masker voor "hoog" 
:LL1 LDY GMAX /2 us/ MAX is lengte van TABEL 
:LL2 STA #BOO2 {lk ns/ Zet output "noog” 

LDX TABEL,Y /k ns/ Haal volgende vertr.tiĳjd op 
:LL3 DEX {2 us Yerlaag teller 

BNE LL3 {/2(3)us/Nog niet nul? Opnieuw! 

DEY {2 us/ Volgende TABEL-waarde 

STX #BO02 {bk ns/ Zet output "laag" 

LDX TABEL,Y {4 us/ Haal volgende vertr. tijd op 
:LLk DEX {2 us/ Verlaag teller 

BNE LL4 {/2(3)us/ Nog niet nul? Opnieuw! 

DEY {2 us/ Volgende TABEL-waarde 

BNE LL2 /2(3)ns/ Vogende periode 

JMP LL {3 us/ Uitgang; voorlopigt opnieuw! 


De minimale periodeduur wordt hiermee 31 ns, dus gen verbetering 
met 6 ns (de BNE's heb ik vorige keer verkeerd geteld), Het ver- 
schil is bereikt door het masker BITNUL niet te gebruiken, maar 
domweg het X-register, dat steeds nul is,op BOO2 te schrijven. 
Bovendien wordt de TABEL nu achter-waarts doorlopen, waardoor 
geen CPY-instructie meer nodig is, 

Het voordeel dat we hiermee-bereiken, is dat we nu onze golfvorm 
kunnen opbouwen uit zes trapjes inplaats van Yijf, dus een iets 
minder grove benadering van de gewenste GOLFVORM,. 


Ton Otten 


B R R 0 R in "BENCHMARKING" 


In het artikel "BENCHMARKING" van J‚R, Marks op pagina 9/10 is he 
laas door de auteur een nulletje over het hoofd gezien, Hierdoor 
verandert evenwel de conclusie; nogal drastisch eigenlijk. 


Tot zover het alechte nieuws, 


En dan nu het goede nieuws: de opgegeven tijd voor de teat nr, 8 
(deze test hoofdzakelijk enkele Floating-Point-funkties, HONDERB 
maal achter elkaar en niet DUIZEND! )op de Acorn Atom ás een fac- 
tor 10 te hoog opgegeven. 

Dit betekent dat op het onderdeel Floating Point onze Atom oprukt 
van de 15° plaats naar de 11° on in het Algemeen Kiaasement van 


de 13° plaats naar de 3° plaats! 


Een fraat resultaat, nietwaar? 
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1Q REM REAL-TIME KLOK IN BEELD, ZONDER SOLDEREN « 
EB REM HARDWARE: EEL CVIAI 

30 Y=t76sG=k2E00: Hek 2802 

GO REM G: RAM-ADRES 

SO REM Hz: RAM OF (PSEUDO-JROM ADRES 

58 DIM PP4GP, $21 

78 FOR 1=0 TO 4sPPI=BINEXT 1 

88 FOR I=t TO 2 





30 P=H 

1906 LDAa@O:LDxaS 

i18:PP4& \ INITIALISEER: 

128 STA G+8FE, X:IDEXSENE PPá N UREN: MINUTEN, SECONDEN = @ 


130 LDAS1O:STA G+#FAGSTA GekrC \ VERANDER IRO-VECTOR 








162 LDA APPO/25E:STA #285: LDA 85 POAZSE: STA #204 

158 CLI MAAK IRG MOGE: IJK 
18 LDADHCOISTA FREOBIETA HEEGE \ IMITIALISEER VIA &5 
170 LDA 2&F:STA #BE04 54808 

188 LDA B&ECIISTA #EBDS N MIERG-SECONDEN 

198 RTS 

Z08:PPO TKA: PHA:TYA: PHA 

218 LDA DLCE:STA HEEBS \, RESTART TIMER 


220 INC G+#FF;LDA Ge&FEICMP DZRIRNE PPZiLDA OU:STA G+4FE= 
239 INC G+#FEsLDO G+4FE 

248 CMP 210 \ EENHEDEN SECDNDE 
250 BNE PP1;LDA 8O:STA G-RFE 

268 INC G+#FDiLDA G+#FD 

275 CMP 3E : \ TIENTALLEN 
250 ENE PPI:LDA 98:STA G+#FD 

ZEE INC G+#FB:LDA G4+#ER 








360 CMPO1B N EENMEDEN MINUTEN 
T18 BNE PPI: DASBISTA G+&FR 

328 INC GeHED:LDA OrtFA 

358 CMPSE \ TIENTALLEN MINGTEN 
348 BME EPis 


DAAD:ISTA Getra 


Se E 





538 CmPaie 
480 BME PPI: DAHEISTA G44FT 
&ig:PPi 










450 NEXT 
tE8 P‚,SE' 
478 INPUT 
den 9,612 
GE REM 
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GGING temstek 
DSTABEL MAKEN MET ARGUMENTEN: 
KORTSTE EN LANGSTE TIJD, NODIG OM 





4 

45 

45 REM eenen ear senen 

58 REM DP VERZOEK DE” ShELD EID Dok N 

68 REM IN MIJLEN PER OM MET AMERIKAANSE LIT- 

79 REM TERATUUR TE RUNNEN VERGELIJKEN, 

198 P_$127 

118xMeg 

158F IN, ZAFSTAND" XS, “STARTTIJD" XT, "EINDTIJD" XE, “STAP IN SEC"%D 
155 GOS, 15608, 1 

140P, "AFSTAND vikKekBiY=1;80S, dip," KILOMETER, = * 

145 KX=KS/1, EDI Y=23 GOS, dip, Wo MIJL!? 

1588=8iP, "TIJD VAN “"‚XT/1,* MIN TOT “‚%KE/1 * MIN"?,® " 
1689=8 

179608. : 

180P, * MIN SEC SNELHEID SNELHEID"" 

198P, * KM/H M/H"T 

209 GOS. : 

210D0 

220 KXV=EDRKS/ CXT+KM/EO) 

ZEBLWEKV/ 1, EOS 

Z4LOFIFXM=DP," *" 

258 EIEKNDD, PT, ttr Mt "ski GOS. di Yez 
„268 FIFXM=q P3LKeK WI GOS, di PP." 

228 ETEN G’ P. hid “KM! NiKK=kV5 GOS, d 

288 FIEFXMO)G P. “Kek Wi GOS. di P.° 

238 XMEXM+XD 

30 £T 

SLBUNTIL OT /LekE/1 Cx 

=: 1 

35e P‚$ 

z48 

2587 

SEB 

378 

588 

598 

402 

418 

if 

3 

668 SNELHEID SNELHEID 
458 KM/H MAH 
âl 










56 8 13.71 8.52 
28 15.65 8.47 

40 12.55 8. 42 

57 k] 15.47 €. 37 
pj] 15.40 85 

40 13,32 8, 28 

58 1] 15. 24 8. 23 
29 15.17 8, 18 

49 15.83 8.14 

53 A: 15,82 8,29 
za 12, 94 8, O4 

40 12,87 8. Bd 

E@ ® 12, 88 7.96 
20 12.75 7,31 

40 12.68 7,87 

el a 59 Z.B2 
zo 5e 2.78 

ág 45 7.74 

Ee Vi} 7.70 
2 7.66 

ad 7,52 

Ld 3 7.58 
ze 7.54 

ï EA] 7,50 


n 


Recurrente betrekkingen voor sinus en COBinus, 
Tik de beide volgende, zeer kleine programma'tjes eens in en meet 
hoeveel tijd ze allebei nodig hebben: 


IfF.I= 1T01fg 1O%A=f; HS=SIN1 ; #C=2ECOS | 
2f%S=SINI 2fr.1=2T01ggf 
3N 3PLBeACHLS-HA 
hgEe. hjdA=LS ; AS=HB 
SN. 
6gE, 


Kijk ook naar de waarde die %5 heeft gekregen, na afloop van de 
beide programma's; en vergelijk die met de waarde van de sinus van 
1sgg radialen. 

Het blijkt dat beide programma's hetzelfde doen: het berekenen van 
de sinuswaarden van 1 t/m 1fff radialen, maar wel met een verschil 
in tempot!4?4 

Het tweede (sneìle) programma maakt gebruik van een zgn. recur- 
rente betrekking: een sinus wordt berekend uit twee voorgaande 
sinuswaarden, Viteraard moet er dan aan voorwaarden worden voldaan. 
In de praktijk blijkt dat dat heel vaak het geval is: juist als er 
een groot aantal sinusen moeten worden berekend, blijkt dat de 
waarden waarvoor dat moet regelmatig (hetzelfde bedrag) toe- of 
afnemen. En dat is juist wat nodig is. 

We kunnen dus de recurrente betrekkingen gebruiken voor de bere- 
kená: van: 

SIN(X), SIN(X+H), SIN(X+28H),......SIN(X+NEH),...... enz. uitgaan- 
de van twee zgn, startwaarden, 


Hetzelfde geldt ook voor het berekenen van cosinusen. 


Wat.zijn nu die recurrente betrekkingen? 

Die zijn: SIN(X+2aH}=28COS(H)ASIN(X+H)-SIN(X), 
en: COS(X+2zH)=25COS(H)ECOS(X+H) -COS(XK 

Voor wie erin geinteresseerd is volgt hier de afleiding, 

Er geldt: 


SIN(A+B 
SIN(A=B 





SINGA)xCOS(B) + COS(A)sSIN(B 
A)aCOS(B) — COS(A)sSIN(B 





SENA) + SIN(A-B) =28COS(B}aSIN(A), of 
SIN(A+B) e= 25COS(B)sSIN(A) — SIN(A-B) 


=COS(A)RCOS(B) — SIN(A)&SIN(B 
OS(A)zCOS(B) + SIN(A)ZSIN(B 


Ne + COS(A-B) =28COS(B}&COS(A), of 
COS(A+B) = 28COS(B)RCOS(A) -COS(A-B 


Vul nu in: Á=XtH, B=H, en je krijgt de genoemde recurrente 
formules, 





COS (A+B 
COS (A-B 


Jaap Woldringh, 
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TEL. 412989 


SGDIMAS;P.$12 - 
183P. "WILT U WERKEN MET HOEKEN"? 
11OP: “DIE IN GRADEN, AIN EN SEC** w 
120P: "ZIJN UITGEDRUKT, OF, IN"" 
12OP. "DECIMALE GRADEN?"7"* 
1&OIN. ANTWOORD, GMS DF _DG"&A'* 

150IF $A="GMS" F=05G. 180 

1EDIF $A="DG* F=156. 150 

170P. “ANTWOORD ONDUIDELIJK"" ;G, 140 
1EQP. AFSPRAAK: NOORD. GOST: + 

Laan ZUID, WEST: —errr 
agr Ì DTE 1 “XB, “LENGTE 1 "XL 
BEING "REREoDTe z *xC,SLENGTE 2 "%M 


2IF F G.S@ 
2: REM VAN GMS ——) DG 
2EOXX=EG GOS, 95 HBEAX 5% 6DS 
SLOK X=KC GOS: 3 LEAK 5 AX Zj 888: 35e ti 
SO8 REN VAN GRADEN NAAR RADIALEN 
21G£F=PI/180 
IEORBEN ERAF $ ALA LF 5 “55 ten AMEAMEKE 
1208 REM DE BEREKENING Wi DE 
1085 REM VAN DE AFSTAND 
1918xH= HSN OSLN Agee NAE PCOSHB*COSACHCOS AL — XM) ) 
1853 REM XH IS DE *HDOGTE' 
18E8 REM WAT DAT BETEKENT WORDT 
978 REM IN DE STATEMENTS 
SQ REM AAN HET EIND VAN HET 
230 REM PROGRAMMA UITGELEGD. 
B REM BEREKENING AZ IMD e 
3 REM CDWZ, DE RICHT 
BAR= VsiNkes REIN) / (COSXH*COSKB) 
FIF ABSXR)1 XR=SCNXR 


Ol 

@: =A05 

è REM XH EN XR DEAN RADIALEN 
g 


Ì 
5 
18 
23 
25 
27 
<8 BOTTEMAHEERD 4 
48 
58 
65, 
ö 
Eil 
® 
3 












aú 





eerdere ed eveneens 
OOR S0S 


IF = 
1535 REM AFSTAND CIN ERADEN) Is 
1526 REM 32, HOOGT E 

1550xD=30-% 


1535 REM zen GRADEN IS 42208 KM 

1536 REM OP DE EVENAAR, 

15460D=Dr4E4/IED 

1545 REM RAD — Pe 


DG 
195DXB=LE/ AF sKL=KL/ KF 3 KCC KF t LMS zn er 
1SEBIF F G, 022 


1 
HELDERE =XE: GOS. as vE= uK EAT *Ls GOS. di KL=NK 





BERK X=KCE A LOT Aan EKXi XM GOS, di KM=KK 








8 
zSAE Turn IS "R+, 5“ GRADEN. *'** 


210GEND 

188232 X= XXL ven 18BE (AKAI HSCNIKLIEES Vh X/1 FKZEL OBE EKV) 
18281  x O+X2)/ EBDE RETURN 

z0008d hi HEM SEB (KKK V= xKrED: LEKXLEO AKeK+V/10D+Z/ 10008 


2001 OR. 





(vervolg op pagina 15 } 
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® REM PREDICTOR 

10 @=0;P.$12" … PREDICTOR …*/;?4EL=0 

“I'M PROGRAMMED TO PREDICT* 

“YOUR ACTIONS, EACH TIME" 

48 P”“YOU SHOULD ENTER <T> OR (F>" 

58 P,"AND 1 WILL UPDATE MY SCORE" 

6 P.”"LEVEL (2-8! 2";DO KEY L;L=L-CH"8*;U.LDfA.L49 
7 P.48L 











85 PLAY G8 ‚ 

98 IM23=W00;TW24= 002 Na de invoer van het level (een 
100 M= 1;F‚1= 1TOL;MeMe2;N, geschikt level is 4) steeds na 

110 DEM TTM,FFM elke piep een 'T' of gen 'F' 

120 F.1=6TOM;TTi=0;FF120;N. in tikken (niet te vlug). 

138 P‚630''* Als dit doet zonder naar het 

140 P”YOUR ENTRY WAS. — * scherm te kijken, dan kan de 

156 Pl WAS PREDICTIN “, computer in ongeveer 60% van 
GEen nd ee, 
Een BN 
190 DÛ 24EL=480;DO KEY A;UNTIL A= tikken). Ook als U naar het scherm 
200 IF TTOFFC THEN B=CH*T" kijkt is het lastig om in de buurt 
218 IF TTCCFFC THEN B=CH"P* van de 50% te komen. Let er 


215 IF TTC=FFC THEN BeA.R.X2(CH*T"-CH*F"+CH*F* 
238 DO KEY A;UNTIL A=CH"T" OR A=CH"F";{=4;GOS a;P.SA 
240 GOS.4;P.4B 


echter steeds op dat U niet 
te snel tikt, dan zou nl. 
de tijd een random (?) 





Ei en . factor kunnen worden, waardoor U 
2 IF Bra THEN R=Re1 gemakkelijker de 596 haalt. 

296 GOS. 

380 PR" C'CR450000+5/N/106","(Re1900045)/N%100/10"%) "777 

205 PLAY G8 


316 IF A=CH*F* THEN FFCaFFC+{;C2(C#2)8(M-1) 
320 IF AxCH*T" THEN TTC2TTC+1;C2(C#2e16{M-1D 
336 U‚0 

3AOa!UDEzY e3244 149000; =V +1; 

350. 

360 Naar een (oorspronkelijk 2) idee van 

378 John Krutch 

380 

390 Bewerkt door 

400 Frans van Hoesel 








(vervolg "Afstanden op Aarde" van pagina 14) 


OBArS=SENLXK 5 LK = ABSXX+, Sel0r-Y 

B2DXEKK/ IES P, K, ", 

825Z=059=0 

arxe 10e CXX-SeX) 

B4DF. Wei TO Y 

BSB KekK/1sP.X 

DEB KKeiDK(LK-KD 

ZON, 

gege-r 

Z5C0BDIT PROGRAMMA KAN OOK WORDEN GEBRUIKT OM DE HOOGTE SEN EEN 
OOLHEMELLICHAAMCZON, STER, MAAN, PLANEET), WAARVAN DE DECLI= 
BOZNATIE EN DE UURHOEK (LOCAAL OF TOV, GREENWICH) EEKEND Zn, 
IDOSTE BEREKENEN. DE DECLINATIE IS DAN ER REEDIE ZLD UURHOEK 
25084 TEN OPZICHTE VAN GREENWICHC teken ! ) ENGTE 

GAENIET XD, MAAR XH MOET DAN WORDEN Ui TbEVOERD. ós 

@ 


OEHET ar TRUTH IS DE RICHTING WAARIN HET KEMELLI ERR WORDT 
18GEZIEN, 


21 
2i 
21 
21 
21 
21 
21 
210 
21 
2 
25 
25 
2 


Eén extra 6522 





Ig 


uz 


In ATOMIX 2, het clubblad van de A.C.Delft, troffen 
we onderstaand schema aan voor uitbreiding van de 
ATOM met een extra VIA 6522. 


EN 


BF xx 
d.i. BFOO t/m BFFF 

1 
(moeder ard) 1433 (aaé bytes!) 


Wij vinden deze oplossing niet fraai. De schakeling 
‘selecteert! [als je het nog zo noemen mag} 256 
bytes, waar een 6522 er maar 16 nodig heeft. Zie 
MANUAL Blz. 169. Onder de 240 verknalde bytes zit 
uitgerekend ons SCHAKELBYTE ABFFF. Hoe is't mogeliĳk. 





Dat kan wel beter, zie onderstaand schema [R.Heuvel] 


es 6se2 






BFEO ff BFEF 
16 Bytes 


Deze schakeling drĳft bĳ mĳ een Philips Mini Digitale 
Recorder aan. Met deze extra VIA [f 18.-J kun je mak- 
kelĳker de schakelsoft van de PET overnemen zonder dat 
je last hebt van onze printer op de originele VIA. 
{Zie program M.v.Peursen in PBE 3-1980}. 


In hetzelfde PET-bulletin {zie ook aanvulling 9-1982] 
vindt U onderstaand schema voor de rest van de interface. 
Dit is een variant van het MANUDAKX-schema. Aan een 8255 
kan uiteraard cok; zie CHIP Nr 10 (oct.] 1980 met uitleg. 


IRev 
Ad Swen 
A1 6 WDA 
Az 


Borghaerts. 
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WRITE PROTECT OP DE RES] VAN DE CMOS-KAART 





Wanneer U de CMOS-Geheugenkaart ontvangt dan is 
het gebied #6800 - #8000 reeds op WRITE- PROTECT 
te zetten d.m.v. schakelaartje 6. Dit zĳn dan de 
3 IC's 6,7 en 8, voor de resterende 5 IC's zijn 
er dan nog 5 schakelaartjes over. Om te beginnen 
lieten we U zelf maar uitzoeken hoe dat moest 


Terecht kennelijk. Met nu een kleine 300 {!} van 
deze kaarten in de club horen we zelden van proble- 
men. Tot dezer dagen, twee brieven tegelĳk met de 
vraag : * Ik heb nu de 5 lepeltjes aan de IC's 1 
t/m 5 aan de schakelaars 1 t/m 5 verbonden [zelfde 
soldeerpunt waar ook de weerstanden aanzitten], 
doch dat geeft geen WRITE PROTECT. * 


Dat klopt en dat zit zo: De IC's l t/m 5 zitten, 
net als alle andere IC's van de ATOM aan één door- 
lopende R/y lĳn die wordt gestuurd door de micro- 
processor. Is de lĳn HCCG dan zĳn alle IC's intern 
geschakeld op READ [Uitlezen]. Is de lĳn LAAG 
dan zijn ze intern geschakeld op WRITE (Inschrĳven]) 
LET WEL : In feite is dan echter van alle IC's 
alleen het éne IC te lezen of in te schrĳven,waar- 
van tege lúk de G5 lĳn LAAG is. 


Op WRITE-PROTECT schakelen houdt nu in, dat van een 
IC, of van een groepje IC's tegelĳk [zoals bĳ IC 
6,7 en 8] de R/y lĳn via een schakelaar loopt.Is 
die schakelaar gesloten, dan is er niets aan de 
hand. Bij open schakelaar echter wordt de R/y lin 
onderbroken en het gedeelte dat naar het IC loopt 
wordt met een. PULL-UP weerstand HOOG getrokken. 


Na verbinden van de lepeltjes aan de schakelaars 
moeten we de IC's derhalve nog losmaken van de oor- 
spronkeliĳke R/W lĳn. Dóór de IC: voetjes heen ziet 
U aangegeven, waar de liĳn kan worden doorgekrast. 
Behalve bĳ IC 1, daar was hiervoor geen plaats. 


IC 1 maakt U het beste los aan de soldeerziĳde vol- 
gens onderstaand tekeningetje. 


N.B, Wanneer U het 
lĳntje doorkrast vol- 
gens tekening en het 
naastzittende oogje 
verbindt met b.v 5 en 
voor de rest n iets 
doet, dan kunt U met 5 
de hele groep IC 1 t/m 
5 tegelĳk op Write-pro- 
tect schakelen. Kan ook 
handig zijn 





Borghaerts 
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STACK EN QUEUE 
Twee veel gebruikte methoden voor tijdelijke opslag 


van gegevens zijn de stack en de queue (ait te spreken 
als 'stek' en ‘kjoeoe'). 

Allereerst de queue, Deze is het beet te vergelijken 
met een rij wachtende mengen voor de kassat wie het eerst 
in de rij ia gaan staan, wordt ook het eerst geholpen. Op 
z'n Engels heet dat 'first in, first out' (= eersteerin, 
eerste eruit). Zo'n queue ís bijvoorbeeld erg handig in 
combinatie met een printers àe computer zet alle tekst in 
de queue, waarbij elke letter achter in de rij aansluit 
en de printer drukt steeds het eerste karakter in de rij af, 
waarna het uiteraard uit de rij wordt gehaald, De snelheid 
waarmee de computer de karakters in de rij zet le niet van 
belang, sodat de computer gewoon op topsnelheid door kan 
blijven draaien, terwiji de relatief langzame printer ook 
z'n werk doet. Natuurlijk moeten we wel ín de gaten houden dat 
de rij niet vol loopt, anders gaan er letters verloren. 

Ook het omgekeerde kan het geval zijnt de 
computer gaat langzamer dan het apparaat. 

Dit ie bijvoorbeeld het geval ala we een 
langzaam programma hebben dat slechts zo 

af en toe een getalletje van de band (of disk) 
wil lezen. Het is dan soms handig om in één 


keer bv. 100 getallen in te lezen en daarmee 





aen queue te vullen. Daarna stopt het cassette- 
deck (of floppy-disk) en de computer leest één voor één de 
getallen uit de queue, Als de queue leeg is (de computer heeft 
alle 100 getallen gehad) dan starten we weer het caasgette-deck 
om de queue weer te vullen, Behalve bij het gebruik van DOS, 
zit er normaal geen queue in de ATOM. 

De stack gedraagt sich net als een stapel borden: het bord 
dat.het laatet op de stapel is gezet, wordt het eerst er weer 
af gehaald, De stack is handig bij het opbergen van tussen- 
resultaten en bij subroutines, Ale voorbeeld nemen we onze 


Atom; deze heeft veracheidene stack'a die ieder een eigen functie 
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hebben, Een van die stack 's is de GOSUB-atack. Hierop wordt 
het adres gezet van het begin van het volgende statement. 

Dit wordt gedaan om het RETURN-statement te kunnen uitvoeren; 
de basic moet dan namelijk weten waar hij weer naar terug moet 
springen. Voor het opslaan van dat return=adres zijn echter 
twee geheugenplaatsen nodig, en daarom bestaat de gosub-stack 
eigenlijk uit twee stack's. De ene stack — waarin het lage 
byte van het adres wordt opgeslagen — begint op #2CP, en de 
andere — voor het hoge byte — begint op #2DD. 

Bij elke stack hoort een zg. etack-pointer (lett. 1 
stapel-wijzer) die bijhoudt tot hoever de stack gevuld is. 
Voor de gosub-stack staat die pointer op de geheugenplaats 
F4. Met behulp van een klein programua en wat denkwerk is 
een en ander fraai te illuatrerent 

18 P."SPACK-POINTER RETURN-ADRES"! 

20 e.19 

30 GOS,704,G08.49; GOS. 703 END 

40 G@S,704G05.50} GOS. 704 RETURN 

50 GOS. 704 G05.605G03, TOF RETURN 

60 GOS, TO; RETURN 

19 FOR I=9 TO 24141 

82 P.l+1'  “&(IPM2CP+256F(I?M2DD)) ' 

98 NEXT;P . * RETURN 
De routine op regel 70-9% drukt de gehele gosub-stack af. 
Het gerommel met plus of min 1 ig nodig omdat dit afdrukken 
in een subroutine gebeurt. Tijdens het runnen van het program 
aa kan men het beste de uitvoer even opschrijven, om die daarna 
mbv. HEX of XDUMP #2920 te vergelijken met de programma-tekat. 

Andere atack's in de Atom zijn oa. t 
„ De DO-stackt de stack-pointer staat op #13 en de stack zelf 

bevat het return=adrea van de DO-loop op #2B8 en hoger 

(laga byte) en #2C3 en hoger (hoge byte). 

- De FOR-gtackt de stack-pointer staat op #15, De stack is 11 
bytes breed: 

#249 (en hoger) naam van de for-nezt variabele 


#24B > step=grootte laagate byte 
“255 en step=-grootte een na laagste byte 
#260 Pr atep-grootte een na hoogste. byte 
#26B Pr step-grootte hoogste byte 
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— De 


= De 


F276 (en hoeer) TO-waarde laagste byte 


#21 ss TO-waarde een na laagste byte 
2de n TO-waarde een na hoogste byte 
w2g7 Pr TO-waarde hoogste byte 
AC . return=adres lage byte 
#2AD en return-adres hoge byte 


Aangezien de integer getallen in Atom-basic 4 bytes 
breed zijn, zijn de step-waarde en de to-waarde ook 
4 bytes breed. 





Basic-stack: de stack-pointer staat op #4. De stack is 

4 bytes breed: 

#16 (en hoger) laagste byte Ail 
#25 PN een na l ste byte A ' oe. 
+34 mn een na hoogste byte 

#43 ‚ hoogste byte 

Zoals op onze vorige club-avond is besproken wordt de 
basic-stack gebruikt voor het bereken van wiskundige 
expressies, maar ook voor het opslaan van de naam of het 
adres van een variabele, 

6502-stack (ook wel âé stack): de stack-pointer staat niet 


op een geheugenplaats, maar in de 65ô2-processor zelf. 

De stack loopt van #1FF naar beneden tot #100. Dit ig 

zo voor élke 6522-processor. Bij de Atom wordt echter 

het stuk geheugen van #100 tot #17F als input- en string- 
buffer gebruikt. Deze stack is zêêr belangrijk en men 
dient dan ook uiterst zorgvuldig met deze geheugenplaatsen 
om te gaan. De stack kan voor verschillende doeléinden 
worden gebruikt. De accumulator op de stack zetten gaat 
met de machine-taal«instructie PHA, er weer vanaf met PLA3 
Bij een subroutine JSR wordt het return-adres op de stack 


vezet en net R185 er weer afgehaald; enz. 


Jomsige programma's hetten een extra stack nodig voor de opslap 


van gerevens. ren goed voorbeeld daarvan is het pro-ranma op 


pagina 43 van de Atom h naleidine. 


U en 


711000°003138' 
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OvER DE WEG 





Dít programma laat een "rups" over een weg kruipen. 

De weg maakt steeds bochten, en U moet de rups in het midden 
zien te houden. 

Met de Z gaat U naar links, en met de M naar rechts. 

Als de rups de kant raakt, of als er 50 stippen zijn verschenen, 
(de rups moet de stippen ophappen) dan is het spel afgelopen. 
Het programma maakt in regel 20 gebruik van het trucje wat op 
bladzijde 35 van Acorn Nieuws nr 1(1983) is beschreven. 

Voor geluidseffecten is de Toolkit van Telec noodzakelijk, 


16 P,$12;74E1=D; 2A0DPD-32;N=D; Oef ;@-P; U=kBPFD; PF. I=1TO16;P. HDN. 
2 DIMA14,B14; $A= "1 1; 3B= "1 z f";X=9 
3f CU.X;P.8A! 

Af C=A.R.%4; IPC=1;X=Xe1 

5f IFC=f;X=X-1 

6Û IFC22;X=X+2 

IP IPC=5;XeX-2 

Sf IFX<b; X=f 

of IFX>18;X-18 

Pb CU.X;P.8A' 

Î KEYZ; IFZ=CH"Z"; U=U1 

P IFZ=CH"M"; U-U41 

P IFOeSf;G.a 

Ô 1P2U=f2A;BE. AP, 1;N=Ne1 

Ó IF U-Á6A;G.a 

P UUAFF 

D V=h.R.%1E;IFV=2; CU. X; Pe $B';IF?U-f2A; BE. 4, 1; N=N+1 
18f IFV=2;2U=Á FF; 0=0+1 

196 G.4p 

2fpPar,X-1fTO255S. 1P;BE.X,1;N. 

216 P.$12"Het spel is afgelopen, "!!#UW SCORE IS IN'! 
2af, P,"DE MAXIMALE SCORE IS 49''*;?/El=/8p;@=8;E. 


1 
11 
12 
13 
14, 
15, 
16; 
17. 


Frank de Groot, 


Noot van de redactie: 


Voor diegenen die geen Toolkit bezitten ken het commando CURSOR 
(= CU, in de regels 39, 198 en 178) worden vervangen door: ?#8-X. 
Het commando K2Y in regel 114, det overigens ook door de Josbox 
wordt herkend, kan vervangen worden door: 

119 Z=?BOOl; IF Z-191; U=U-1l 

129 IF 22129; U=Ua1 
De gebruikte toetsen zijn nu: CTRL en oHIFT, 


U kunt natuurlijk ook een joystick gebruiken (zie Acorn Nieuws 5 
van 1982), 


Het vervangen van het BEEP-stetement (afgekort: BE.) door een 


passend geluidssignaal (wat dacht u van een politie-sirene?) laat 
ik aan uw eigen fantasie en vaardigheid over. 
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WISKUNDE 


Van de hand van de heer J. van der Graaf ontvingen wij een bundel 
wiskundig georiënteerde programma's, waarvan we hier een eerste 
gedeelte opnemen. Het tweede deel, dat wat specialistischer van 


aard is, volgt in het eerstvolgende nummer van Acorn Nieuws. 


De eerste twee programma's, genaamd "STRINGMANIPULATIE",. demon 
streren het effect van enkele string=bewerkingen, 
Deze programma's spreken voor zichzelf en kunnen gebruikt worden 


als uitgangspunt voor verder string-knutselwerk. 


Het derde programma CONVERSIE voert eon sg. ster-áriehoektransfor- 
matie uit, iets wat te pas komt bij de elektrotechniek van drie= 
fase-schakelingen, Verdere toelichting bij het programma! 


Tenslotte een nieuwe en een oude benaderingsmethode voor nulpunten 
van algebraïsche functies, De nieuwe methode is die van de Regula 
Falsi, de oude methode is de reeds eerder beschreven Intervai-hal- 
veringsmethode, ditmaal van de hand van Jaap Woldringh. De eerste 
publicatie over dit onderwerp verscheen in Acorn Nieuws van april, 
van Hans van der Lint, tegelijk met die van Jaap in Acorn Nieuws 
Noord, Een helder betoog, dat ik u niet wil onthouden, 


18 REM STRING MANIPULATIE 





20 REM J V/D GRAAF programma lengte: 242 bytes 
38 REM MAASLAND 
kö DIM A(63) Zogeer voorbeeld: 

we mr GAT 
50 MUIOER Wi TEKST HSA! | Soir ow raast ze 
70 CLEAR 0;?#E1=0 TACORN ATOM- 

FOR B=0 T - 

50 BRINT 0 ENA ca) VERTRAGING 
190 FOR C=0 TO D 215 
110 WAIT;NEXT C;NEXT B;GOTO80 
18 REM STRING MANIPULATIE 2 
28 Ren LO RRAAF programma lengte: 264 bytes 
Et pe | enn ok ate 
50 INS "VERTRAGING" 'D, * voeging van de volgende 
710 CLEAR 0;?2#E1=0; PRINT! Teer bar 4 
89 FOR B=0 TO LEN(A) 
9D $X=$Aj$X=$X+Bj $K4 le" 
95 PRINT $X 
108 FOR C=@ TO D 
119 WAIT;NEXT C;NEXT B;GOTO70 
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JA 


198 
209 
219 
220 
230 
240 
258 
269 
278 
280 
290 
300 
318 
320 
330 
340 
350 


REM CONVERSIE 

REM J V/D GRAAF 

REM MAASLANO 
DIMS(2);FDEIMERR(3), TT (35) 
PRINT'"'STER NAAR ORIEHOEK! 
INPUT"STER(DS)"'$S" 
PRINT'DE INDICES STELLEN " 
PRINT"MIDDELPUNT IS g'''" 
IF $Se'"DS" THEN GOTO 230 
PRINT"STER INVOER(OHM)"' 
FINPUT"WEERSTAND RIO"'SRRI 
FINPUT"WEERSTAND R20"3RR2 
FINPUT"WEERSTAND R30''3RR3 
$N=(1/ZRRIJ+(1/3RR2J+ 

TT Ie (1/SRRIJ*C1/ZRR2) 
$TT2e(1/3RR2)«(1/ERRI) 
STT3e(1/ERRIJ«(1/3RRI) 
P‚"ORIEHOEK UITVOER(OHM)"" 
FPRINT"NEERSTAND Rl2='" 
FPRINT"WEERSTAND R23e!' 
FPRINT"WEERSTAND Rl3="! 
END 

P. "DRIEHOEK INVOER(OHM)'' 
FINPUT"WEERSTAND R12''$RRI 
FINPUT "WEERSTAND R13'"3RR2 
FINPUT"WEERSTAND R23"ZRR3 
IN=ERRISERR2S RRS 

STTI= SRRI GRR2 
STT2=ERRISZRRI 
STT3=SRR24 RRS 

PRINT"STER UITVOER(OHM)"'' 
FPRINT"'WEERSTAND R1O='' 
EPRINT"WEERSTAND R2J='"' 
FPRINT"WEERSTAND R3g=" 
END 


programms lenpte:1252 bytes 


invoer voorbeeld: 


IN 







INC (SD OP 
Naah STaulDs) 


a 


90, Ans 


je COOCO 
CO.0C3CO 


DE PC NPTEOEN 


N(SDJOF" "DRIEHOEK NAAR " 


"DE HOEKPUNTENVOOR. 


R12 
| 2 


C1/SRR3) DN 


EE 


CEN/ETTI)' 
CEN/3TT2)' 
CEN/STT3) ' 


5 ge 


oet 


C3TT2/ ND! 


CSTTL/END)! 3 
C&TT3/END' 





Eulvants bepaiine met de negila Falsi 





We wensen het nulpunt te vinden dat we in de schets hebben 





sore weten det K tussen A en B ligt. 


Lj 
& 
sn " 
3 
Kil 
bed 
8 
® 
had 
ad 


de ondergrens,B is de bovengrens. 
De werkwijze. 

Vie trexkern de rechte lijn van het punt (4,f(A)) naar het punt 
(B,£{B)).Het snijvunt van deze getrokken rechte met de x-as 
noemen we X1. n 

4 en B liggen ieder aan een a) 
andere kant van k.Er noet 

dus noodzakelijkerwijs gelden Fte 
dat f(A)-E(B)Z . 

Ku we X1 hebben gevonden 
willen ve weten ofdat M tussen 
A ern X1 of tussen X1 en B ligt. 
Als N tussen A en X1 ligt,‚dan 
moet gelden dat f(A):E(XI)KE … 
Als N tussen X1 en B ligt,áan 
moet gelden äat f(X1)-f(B)6Z 
Docr te testen kunnen we er 
achter komen waartussen MN nu ligt. tl. 














ie 


In het getekende geval ligt N tussen X1 en B.We hebben dus het 
interval waarin KX ligt kunnen verkleinen. 

Deze nulpunts bepaling is een benadering,we zullen dus voor we 
beginnen een zekere marge aan moeten nemen waarbinnen de 
benadering van het nulpunt moet komer te liggen. 

We zouden bv kunnen wensen dat het benaderde nulpunt op 1/1900 
nauwkeurig is.Deze nauwkeurigheid noemen we epsilon(eps). 


We testen nu ofdat X1 al dicht genoeg bij het nulpunt ligt,dit 
gaat alsvolgt: L(El+eps).L(Et-eps)(d „Als dit inderdaad zo is 
den is X1 de benadering voor het nulpunt N en zijn we klaar. 
Als deze test niet positief is dat gaan we verder met de benade- 
Wat gaar. we nu Coen? Ting. 
Dat hangt af in welk interval N nu ligt. 

Als gelät ASS{X1 dan is de vboven-grens dus veranderd, B moet 
das gelijk gemaaxt worden aan de waarde van X1. 

Als gelat XISN4E dan is de onder-grens dus veranderd, A moet 
das gelijk cemaakt worcen aan e waarde van X1. 
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In ons geval moet de onder grens aangepast worden,dus A=Als 
We kunnen nu het verhaal weer oppakken bij het begin. 

We trekken nu weer een lijn van de nieuwe f(A) naar f(B) ‚dit 
ie in de tekening reeds gedaan.Het snijpunt van deze lijn met 
de x-as wordt weer X1 genoemd,enz. … 


We hebben mu het principe besproken en gaan verder met de 
atleiding van een algemene formule. 


Uit de tekening zien we dat tand= pe: es À 


voor de koorde geldt de vergelijking y=f(A)+ 
Als de koorde de x-as snijdt geldt er y=d 


LB) (x-A) 


oftewel d=f(A)+ 8 zE À (x-A) 
-r(a)= EBA (a) 


=f(A) + (BA 
je =(xeA) 


rn 


we AC{E(B)-F(A)) EA): (BA 


_ Acf(B)-A-f(A)-B:f(A)+A-T(A 
xe EES 
_ tE) 


We hebben ny de formale afgeleid die het nulpunt van de koorde x1 
berekent. 

We zijn nu in staat om met deze gegevens de nulpuntsbepaling 

in een programma te zetten. 


Toelichting op de invoer van het programma REGFAL: 

Boven en onder grens zullen nu wel duidelijk zijn, 

de toegestane afwijking is de nauwkeurigheid epsilon die we 
wensen,het aantal slagen komt overeen met het aantal malen dat 
de koorde getroxken dient te worden, 

Als we van de functie g(y)=z2-5 de nulpunten willen bepalen, 
den vullen we op regel 320 van het programma de volgende formule 
in GP=SXxÉK-S „Nadat we de grenzen hebben vastgesteld kunnen 
we de nalpunten bepalen, 
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50 









EE ING Wai 
, B AGERMA 


130 
VEN AANT" 
WL MUI" *HPURTEN OP BENN 
P.YKAAKPUNT TUSSEN"'"DE » 
HOPGEGAVEN GRENZEN. "'; END 
; GCS Bb 










FI CKS Dg 
GOSUBT go 
JETIG 
PD D 
"al:G I3 
256 #05JBb 
oGOaPHINT"EL PBM SLAGAN IS D5t 
“TOZGESTANE 
: (IJKING REKLIKT,"t 





250 
240 








GT BuAUTKT. nn 








programma lengte:1028 bytes 


invoer voorbeeld: 

We wensen het nul ne van de 
functie jor ZXP (tak) 7 

Fiertoe vullen we deze functie 
ap lyu 320 inwe weten dat het 
nulpunt tussen x=5 en x=1 ligt. 





GRE) na 

GeaNs 

FOEGESTANE Pear mere- 
MAX. AANTAT, SLAGEN?20 


6 


ANTWOORD: 

NA 17 SLAGEN I5 DE 
AFWIJKING BasIKT, 
DE BENADERING IS 1,04590930 

DE PIKSTIBWAAKDE 5.954 58744E-6 


TOHGESTANE 
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BEREKENING VAN NULFUNIEN MET BEHULE 
VAN DE INTERVAL-HALVERINGSMETHODE 


In de Acorn Nieuws Noord van December 1982 beschreef Henk Boxma de 
Newton Raphson methode voor het berekenen van de nulpunten van een 
gegeven functie, In het Januard nummer heb ik daarop nog iets ge- 
schreven over het met behulp van de computer berekenen van de af- 
geleide functiewaarden die daarvoor nodig zijn. 

Hoewel deze methode erg snel tot resultaten kan leiden, is het 
niet zo dat we nu voorgoed uit de problemen zijn als we van func- 
ties nulpunten willen bepalen. Dat is niet het geval en Henk heeft 
An zijn verhaaltje al het een en ander over verteld, 


Eén heel ander soort methode, die veel gemakkelijker te begrijpen is, 
maar niet zo snel tot nauwkeurige resultaten leidt als de Newton 
Raphson methode, is de zg. Interval-halverings methode. Ook hier 
hebben we een schatting nodig van het gezochte nulpunt, waarna we 
links en rechts ervan een waarde kiezen, die dus de grenzen zijn 
van een interval, dat het gezochte nulpunt bevat. 

We gaan nu een leuk spelletje spelen: het interval gaan we ín twee 
gelijke stukken verdelen, Daarna gaan we na of het linkse interval 
het gezochte nulpunt bevat, door het product van de functiewaarden 
van de eindpunten te bepalen: is dat product <É dan bevat dat in- 
terval het nulpunt, anders het andere interval (als het product 

gf is, is h laatst bepaalde eindpunt van het interval het gezoch- 
te nulpunt 
Het interval dat het nulpunt bevat, wordt ons nieuwe interval. 
Dit proces kan je net zo lang herhalen, tot het gezochte nulpunt 
voldoende dicht benaderd is aur net omvakkende interval voldoen- 
de klein is geworden). 








Stel, bijv. dat het gezochte nulpunt tussen 3 en 4 ligt en de func- 
tie van X in het programma in de subroutine f staat die de functie 
waarde Y retourneert, We kunnen dan het volgende programma schrij- 
ven: (zonder %-tekens vanwege de duidelijkheid.) 


19f A=Z;Bek 

11 Ca(A+B)/2 

12f XxA;GOS.f;FzY 

13f X=C3GOS.fyFeFuY 

1hf IF F<fB=C;G. 174 

15f IF Fzfp."NULPUNT=",C3E. 
165 AzC 

175 IP (B-A)>1.E-5G, 119 
18 P."NULPUNT=", (A+B)/2 
19f E‚ 


Ook deze methode ás (natuurlijk) behept met slechte eigenschappen. 
Allereerst is hj tamelijk langzaam, Verder moet de functie zich 
binnen het interval waar we van uitgaan netjes gedragen en er niet 
meerdere nulpunten bevatten, of discontinu zijn bijvoorbeeld. 

Ook als het nulpunt een raakpunt aan de Xz=as ás gaat het mis, In 
feite hebben we dan trouwens te maken met twee samenvallende nul- 
punten, (Ga dat maar eens na}) 





Ik hoop dat dit enkele leden kan helpen, die de Newton Raphson 
methode wat moeilijk vonden, Groeten van 


Jaap Woldringh. 


Lbeachte redactie ; mede-hobbyisten 
deze maand wegens tijdgebrek slechts een kleine bijdrage , 


Allereerst twee opmerkingen 


À : ik vind het zonder meer storend dat ik in mijn lijfblad her en 
der verspreid aantref Wor." wet daarop volgend een of ander 
programma{atje) zonder enig commentaar of toelichting , Weet , heren 


programmeurs , dat de waarde van een programma mede afhangt van zijn 
dokumentatie !! 

2 : gezien het aantal leden dat blijkbaar in staat is kant en klare 
kopij in te zenden lijkt het mij handig als u (redactie) aangaf in 
welk formaat u het aangeleverde materiaal bij voorkeur zou ontvangen. 
Dit is mj, uw redacteur, uit het hart gegrepen! 

ad.1 Helemaal mee eens, 


ad;2 Zie A.N.1(1983), pag.53:"Advies aan Auteurs"; (257x1 70mm“). 


Ôkee ; de programmaatjes 


als eerste een klein en snel (34 milliseconden) stukje machinetaal om 
uw grafische scherm 'cleará’ te inverteren „ Zo'n programma hebben we 
natuurlijk allemaal , maar dit is het snelste wat ik bij konpakte 
afmetingen wist te produceren … 


als tweede een routine om uw grafische scherm 'cleará'’ te spiegelen 
t.o.v, de vertikale middellijn . Hoe een en ander werkt 7 Een regel 
van 32 bytes wordt in twee helften verdeeld , Er wordt een 16%8+1=129 
(16 bytes + carry) bits rotatie naar links uitgevoerd op de linker 
helft van de regel ; het uitsehuivende bit (earry) wordt aan de 
linkerkant van de rechterhelft ingeroteerd , waarbij het bij deze 
rechtse rotatie uitschuivende bit aan de rechterkant van de linker 
helft wordt ingeroteerd . Dit gebeurt 128 maal , voordat een regel 
gespiegeld is . Byte HP3 doet dienst als tijdelijke drager van de 
carry omdat de carry verloren geat bij de CPY-instruktie 

Dit hele verhaal gebeurt dus 192 keer voordat het hele scherm 
gespiegeld is , 


U moet niet verwachten dat het programma in enkele milliseconden zijn 
werk gedaan heeft ; er gaan een kleine 25 seconden mee heen , Als u 
dat lang vindt dan moet u maar eens aan het tellen slaan : regel 70 
t/m 100 en regel 110 t/m 140 worden elk zo'n kleine #00000 keer 
doorlopen ‚ wat neerkomt op ruim 2,3 miljoen rotaties/shifts ad 5 
ayeles , nog afgezien van de indirecte geheugenbewerkingen 


Tot slot nog een optisch grapje ( eerlijkheidshalve : niet zelf 
verzormen „ Oorspronkelijk afgedrukt in de Telegraaf . Wel heb ik het 
raadsel zelf gekraakt ) , 

Neem een spiegel van ca. 20 em. hoog , winstens 10 an, breed en plaats 
deze midden tussen de beide vierkanten , 

Plaats uw neus tegen de bovenkant van de spiegel en kijk met het oog 
aan de blinde kant van de spiegel rechtstreeks naar het vierkant en 
met het andere oog via de spiegel naar het andere vierkant . 

Frobeer door te bewegen met het hoofd de beide beelden in elkaar te 
laten overvloeien en ‘geniet’ van de illusie , 

jor de volgende À‚N, zat ik het programma insturen waarmee m.b.v, een 
tische printer deze en andere illusies te produceren zijn . 





Veel plezier ermee ' 


Kob van Dart 


) 


2Q 


inverteer scherm routine : 4 makltaisec. 


0 REM inverteer scherm routine : 34 millisec, 


10 DIM LL(1) 

20  P=#7100 

30 L 

<0 :LLO LOX90 

50 LDAaNBO; STA LLO+14;STA LLO+19 
é0 LDY82é 

70 _:LL1 LDARBOOO, X;EORAHFF 
80 STAR8OOG, X 

90 INX;BNE LL1 

100 INC LLO+14; INC LLO+19 
110 DEY;BNE LL1 

120 RTS 

130 3 

140 END 





PROGRAMMALENGTE 265 BYTES 


akad spiegel scherm routine KE Rekad 


0 REM spiegel scherm routine 


10 _P=#7000 
20 _DIKNNIO 
3 L 


«0 NNO LDA20:STAK9O; LOARHEO , STAHIL 
50 _:NNt LOX20 
&0 NN2 LOvò1ó 









70 :NN3 DEY 

80 LSRW93; LDA MIO) „Y;ROLA; STA CHIO) ,V;ROLMIS 

so CPVO; BNENN3 

100 LDYa15 

110 :NN4 INY . 

120 RORHS3; LDA (R90) ,Y;RORA; STALHFO) ,Y; ROLHIS Spiegeltje, 
130 CPYR3L ; BNENNG spiegeltje.. 
140 INX: CFXO128 ;BNENN2;LDV216 

150 NNS DEV, LSRR93 

160 LOA CPO) „V;ROLA; STA CHIO) „V;ROLHIT 

170 CPYA0; BNENNS 

180 LDAKF3:LDVA15; ORALRIDD ,V; STA(HIO ,V,LDADO, STAR 

190 LDANSO: CLC; ADCHEE; STARIO :LDAAD; ADCRI1 STANI 

200 LDAMS1 „CHFRSB; BNENN1 

210 PTS 

220 3 

230 € 


PROGFAMKALENGTE 554 BYTES 
30 


Als u dit metalen voorwerpje van binnenuit door de rug van uw Acorn 
Nieuws naar buiten drukt, vanuit de míiddenpagina, dan kunt u het boekje 
in een normale ordner opbergen, ZONDER GAATJES! Bij de kantoorboekhandel, 


ve A, EDE Ee ET Al” A 
FE EN nel 
vt ADA rj kk 
Fi 7 d 


EE en 


Ee 





ten fundamenteel probleem 32 


Bij het bedenken en programmeren van nieuwe commando's is Gerard 
Akkermans op een interessant probleem gestoten dat ons aller aan- 


dacht verdient, namelijk: 


Waarom moet het programma, dat bij een bepaald statement behoort, 
soms worden afgesloten met een RTS en in andere gevallen met een 
JMP? Aan het programma zelf is dat niet te zien! 


Ter verdere inleiding laten we Gerard zelf even aan het woord: 


Wat betreft de zs-commando's: 
= De firma "WILLOW SOFTWARE" brengt een Toolbox 
op de markt, die ook met #=commando's werkt, 
Na enig snuffelen kwam ik tot de’ conclusie: 
= Sommige commando's moeten met RIS worden 
afgesloten om geen foutmelding te krijgen. 
= Sommige commando's moeten met een JMP worden 
afgesloten om geen foutmelding te krijgen. 
Vraag: Wat bepaalt of een commando met een 
JMP of met een RTS moet-worden afgesloten?? 
Ikzelf weet het antwoord nog niet, Misschien 
iemand anders wet!? Het lijkt mij. verstandig 
om in het Acorn Nieuws hieraan even aandacht 


te besteden, 
(Voorbeelden: KZERO verlangt een RTS. 

=DEL verlangt een JMP, 
Tot deze conclusie kwam ik door het gewoon te 


proberen! } 


Met vraendeliĳke Groet, 





PS. Zero stelt alle variabelen op O en Del verwijdert regels, 


Ik neem aan dat het probleem nu duidelijk As, 

En dan nu de oplossing, die m.i, van fundamenteel belang is bij het 
correct invoeren van nieuwe statements, iets waarmee velen van ons 
op dit moment druk doende zijn (dacht ik). 
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dezien we, om te beginnen, de volgende omschrijving van een sub= 

routine: Voor de uitvoering van een subroutine worden de huidige 
activiteiten even onderbroken. Vervolgens wordt de sub= 
routine uitgevoerd, waarna de huidige activiteiten weer 
worden hervat, 

De clou zit 'm in dat onderbreken en hervatten: na de subroutine 

gaat het programma altijd weer door waar het 'gebleven' was. 

In BASIC betekent dit met het eerstvolgende regelnummer na de be- 

treffende GOSUB, in ASSEMBLER met de instructie, volgend op de JSR,. 


Hoe 'weet' die processor nu waar hij gebleven was? 

Antwoord: het terugkeeradres en eventueel de inhoud van de accumu- 
lator worden bewaard op de ‘stack' tijdens de uitvoering van de sube 
routine, (Voor meer informatie over de ‘stack', zie de asaembler- 
cursus, pag. 1} en/of pag.20 ), Vlak vóór en vlak ná de uitvoering 
van de subroutine staat de 'stack' dus precies even hoog. 


Het voorgaande kunnen we in een plaatje weergeven, als we het door- 
lopen van het (hoofd-)programma voorstellen door het lopen langs 
een lijn: 






subroutine a 


subroutine c 


Op deze wijze wordt nu ook duidelijk, waarom een RTS aan het eind 
van een subroutine moet staan, namelĳk om te zorgen dat de proces- 
sor de draad op het juiste punt weer oppakt, Zou dát niet gebeuren, 
dan raakt de processor letterlijk "de draad kwijt” 8 


Waarom verlangt het ene commando dus een RTS aan het eind en het 
andere niet? Antwoord: omdat het ene programma wordt aangeroepen 
met een JSR en het andere met een JMP! 


Ton Otten. 
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SLHAKELKAARTOMBOUW VAN 2552 NAAR 2752 


Het is al meerdere malen vermeld dat de eprom-voet jes op de 
schakelkaart, die gebouwd zijn voor de 2552, omgebouwd 
kunnen worden voor 2732. Hoe dat precies in z’n werk gaat, 
zal ik bij deze proberen uit te leggen. 


Naast de voetjes A,2 t.e.m. A,7 zit aan de kant van de 
pootjes 12 en 15 een condensator (C). Naast die condensator 
zitten 4 gaatjes die ik voor het gemak zal nummeren van 1 
tot 4 (nr.1 het dichtst bij de C) 

Bekijken we eerst de componentzijde (fig.1). De gaatjes 2 
en 4 zijn verbonden met adreslijn Afi. De verbinding tussen 
gaatje 4 en All doorkrassen, 

Aan de soldeerzijde (fig.2) zien we dat gaatje 1 verbonden 
is met de + van de condensator. Deze verbinding ook door 
krassen. 





: 
sj 
se 3 E 
doorkerf se È 
\ o Dn: 
STe adrestin U Yee ade jn 44 
E - 
8 E 
& R ë ‚ 
w Dye w Cs 3 
COMPONENT ZUDE SOLDEERZIJDE COMPONEKTZUDE 
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Daarna worden de gaatjes 1 en 2 met elkaar verbonden en ook 
de gaatjes 3 en 4 met elkaar (fig.3). 

Het betreffende voetje is nu geschikt voor een 2732-epraom. 

De Situatie bij de voetjes A;,2 en A,7 is qua layout een 
ietsje anders dan de tekeningen aangeven. De ombouw gaat 
echter analoog aan de beschrijving en zal geen problemen 
opleveren, denk ik. 

Bovenstaand verhaal geldt voor elk van de & voeten en 
hoewel "terugombauw” niet echt moeilijk is, is het misschien 
raadzaam om niet meteen alle voeten om te bouwen, doch 
slechts die welke u nodig heeft. 

Vergewis u er terdege van dat doorgekraste printsporen ook 
echt dóórgekrast zijn. Eproms zijn i.h.a. bijzonder gevoelig 
voor verkeerde aansluitingen. 

Verwijder ook voor alte zekerheid de eproms voordat u 
soldeert of de ohmmeter gebruikt. 


rra Port 


Liot 
18 DIM LL12, TE 
zö '#228d= 
0 :# 
4 'REELE-RDELIGZDCS &281C= #OD1704 10: 
SB '#LELL-KDSBAIDIE: ' RIELE RDEI 1 09875 
EB FOR A=tTOZEDIM P1-1) 
78 P.sz1 
20% 
38:LLB LDAKEG 
10B:LLI CMPI#ZOI BEGLL 1 1 FCMPORZC; ECCLLE + CMPOWSBS BCSLLE 
118 TAXFLDANZEDD-#2C, X5LDYDEISTYREL 

B:LLZ ASLAsDECHEI ; BCCLL 23 STAHOE 

LZ LDA&EZGASLAs STAREZILDYO1 s BEELLGSLDYAE 

:LL4 LDAAR4O: STAHBSOB + LDAAKCB; STANESBE 

150 LPASHSO; STAHBEB4 ;LDAD2: STAHEEBS: STAKBSD7 ; CLI 

1E® JSRLL7;SEIsLDYS1; JSRLL7s DECHE1 ; BNELLJ 

17@:LLS LDYA25 JSRLL7 

LE RTS 

198:LL7 TYAs:ASLAFASLASTAY 

=8E:LLE LDARGLHELLG LDXOHFAs:LLID DEX 

210 HNELL19:SEC:SBCO1 ; BNELLS: DEY s BNELLSS RTS 

sLLIL LDY@73JSRLL7: RTS 

sLL1Z LDA#BSG4 ; LDAKBODZs EORSG 5 STAHBAOZ: PLAG RTI 

3 

















lú=k1A1E0S01 
2O=kAFDEDT 1 4 
















NEXTASP, $6 

GOS. 529 

P‚,$12: IN, "SNELHEID “S 

FOR N=8TO (A, R. XE5) 

N?Ta=A. R. KEE+ESIN. 

NITa#&D; #25 P, $1E 

P‚$21''stHEL=D 

FOR N=BTOCLENT-13 

PHEGEN?T 

P‚SCIHHEZ" * 

PHLOGTLLIEKESE RP RLOSTLL 12/56 

LINK LLGINEXT:P, $6 

2.” CWILT U DE TEKST NDG EENS HOREN" 

IN." "(JA=t NEEEZ)"W 

IF Wet GOTO 218 

P.' WILT U DE TEKST ZIEN"" 

IN. "JA=i NEE=2)“C 

IF Cet P,$6;GOTO 520 

P. “WILT U STOPPEN OF EEN NIEUWE"! 

P, “TEKST HOREN"" 

P, “STOPPEN=1"" "NIEUWE TERST=I" 
= GOTD 278 











„SIZE HOOP DAT U ER VEEL PLEZIER" 
P. “MEE HAD EN DAT U ER IETS“ 

P. “VAN GELEERD HEEFT, ** 

ennn F. MEPSCHEN. ** | 





morsetrainer 
“DIT PROGRAMMA GENEREERT EEN"" 
- “TEKST VAN MAXIMAAL Eá 


“DAARNA HOORT U DEZE TER 

“IN MORSE EN WORDEN EVENTUEEL" 

"EEN VOOR EEN UITGEPRI 

"DE SNELHEID VAN ZENDEN 

- “VARIABEL, 

"BESTE WAARDEN TUSSE 
VEEL & 

RETURN 



















varvLD av): 








Standaardisatie Zero Fage Gebruik. 
Ik constateer de laatste tijd steeds vaker dat iedereen zo 
zijn eigen ideeën heeft over het gebruik van de zero page 
geheugens. 

Tot voor kort moest ík routinetjes uit tijdschriften 
herschrijven van #8x naar #9x vanwege de PPT. Na verloop van 
tijd kwamen er steeds meer programma's die naar #9x 
geschreven werden. Dat wordt dus dringen in dat gebied, 
zodat ik deze meestal weer terugschrijf naar #8x, omdat ik 
de PPT toch niet meer gebruik. 

Verder is er een tendens om de adressen #BO-#BF te gebruiken 
(DDS werkruinte). Kijk maar naar de assemblercursus en de 
schakelprogramma’s van Bouma. Er zijn zelfs Toolkits die 
deze ruimte opeisen (jazeker!) 

Als ik dus een ZP-byte nodig heb voor permanent gebruik (in 
de sfeer van b.v. #12 of #E7) kan ik door dit soort grappen 
van de 64 bytes tussen #80-#BF er geen een uitkiezen. 

Nu zijn bronprogramma’s meestal wel aan te passen en zeker 
als ze met een offset werken, maar een toolkit van 4k 
disassembleren pas ik voor. 

Om deze soesa enigzins te beperken in de toekomst, stel ik 
voor om enige richtlijnen op te stellen t.a.v. het zero page 
gebruik. 

Laten we als basis de monitor van Heuvel en de Jos-box 
nemen. De monitor gebruikt #70-#A9 en de Jos-box #90-#979 
(van de "vrije" ruimte #80-#AF). Dit laat zich uitstekend 
combineren. 

Ik kan natuurlijk niemand voorschrijven hoe hij zijn zero 
page indeelt, maar t.a.v. publikaties zouden we misschien 
een protocol kunnen opstellen. Ter inleiding: 

— Routines die alleen tijdens de uitvoering een paar bytes 
nodig hebben, kunnen daarvoor #70-47F nemen. Dit gebied 
wordt bij FP berekeningen als kladbloc gebruikt en is 
tijdens integer-routines dus vrij. Een voorbeeld zijn de 
inverteerroutines uit AN 68 °82 p.43. Deze zouden naar b.v. 
#70,871 beschreven kunnen worden. 

"Mirakel” van Van Hoesel (AN 8 "82 p.52) gebruikt #7x. 

Ook de voorbeelden van de assemblercursus kunnen heel goed 
#Jx gebruiken (voor de rest overigens alle lof voor deze 
cursus) . 

— Moeilijker wordt het bij routines die hun data wat langer 
nodig hebben. Een voorbeeld hiervan is de lees-routine voor 
joysticks (AN 8 °82 p.50). Als je hier #7x gebruikt, is de 
kans groot dat na een FP operatie de leesresultaten verloren 
zijn. 

Als je in een programma geen Jos-box of monitor aanspreekt, 
is #9x beschikbaar. 

Een STOP-CONTINUGE-constructie valt ook in deze groep. 

= Er zijn ook routines die een ZP byte ten allen tijde in 
beslag nemen (b.v. ALLCOS, AN 1 "85 p.59). Het byte #AB mag 
in dit geval voor niets anders gebruikt worden. Heb je geen 
DOS, dan kun je daarvoor #B: nemen. 
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samengevat stel ik voor: 


#70 — WF: voor gebruik in een enkele routine of statement 


#BO — #OF: ieder idee is welkom 

#90 — #A93 voor monitor, Jos-box en ander tijdelijk gebruik 
#AA — H#AF: zie verderop 

#BO — #BF: alleen voor persoonlijk gebruik; 


in publikaties alleen met “waarschuwing” 


#AA gebruik ikzelf voor een ASCII-dump in de monitor en voor 
#AB-HAF zie ik een mooie toepassing voor een STOP-CONTINUE- 
constructie. Het kopiëren van de geheugens 5,6,#13,#14 en 
#15 tijdens BASIC naar #AB-#AF biedt de mogelijkheid om dat 
programma na b.v, opvragen van waarden van variabelen weer 
door te starten door de locaties terug te kopiëren. 





Sowieso is het een goede gewoonte om de gebruikte adressen 
in routines met een offset te programmeren met daarbij een 
verklaring (zie b.v. ALLCOS). Dan kan een ieder zijn eigen 
aanpassingen maken. 


Op- en vooral aanmerkingen op dit verhaal zie ik volgaarne 
tegemoet (maar dan wel via AcornNisuws!). 











Oma Poet 

LICHTKRANT 

LICHTERANT OF MONITOR, 

MAX .64 EARAETERS, 

MODE 1 /MODE 2 /MIJDES 270INC#PGSBNELLA4 3 INCH 1 

NA TEKST ZRETURNS. ZEO:LLAINXICPXESS NELLE 
BOREN OPPEN DOOR 25 : 2r0:LL SLX? 
LOREM BOOELLLAELESIFE, XEROLHFE 
7EREM JODET DE WIJS: 210 INXGCPX@ETENELLG 
SOREM VELDHOVEN ZOIJMPLLE 


ZOREM : 520: LL7INYsCPY@E; BNELLS 
100GRMOD: DIMAA , daat DART CMPOR IL ENELL 4 
7 MJW “ 250JMFLLO 
ShOsLLELIKE1S 
B7OSLLIROLHEP EROL HDD 
ASOROLHEISO , Xr ROL HIP 
3PEROLHELIG» X3ROLHOF 
ZOOROLHBLAG, Kr ROLHIS 
ALOROLHSIBG , X5ROLHYS 
AZOROLHBICG, X5 ROLHPS 
SOROLHELDE » X5 ROLH 
ALORDLHELEG , X 3 ROLHED 












ASCDEXsBPLLLS 
ALOJSRRFELES.JMPLL7 
5 470) 
A0: LL ILDAWEOOL s ANDE#E O3ENELLESRTE 450P. SEEN. 
tLLELDX@0 :LDYEG APOCLEARI SL INERZEOG 








ZO ILLELDA(HPO),VSSTARHIFE,XIJSRKFEGE  500TXMOD:END 
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ASSEMBLER DEEL 6 


DE STACK 


De stack (spreek vit: stek) is een stukkie RAM seheusen dat daor 
de microprocessor wordt sebruikt. De naam ‘stek’ zal de 
bouwkunde-electronici Chestaan die?) bekend in de oren Klinker. 
De houtstek is een stapel hout waar iets oPsesonid Kan warden =n 
er ook weer afgehaald Kan Worden, De vitdrukkine 'soni het maar 
op de stek’ komt precies wvereen met wat de microprocessor doet: 
alleen iets beschaafder. 

Bij een 6582 microprocessor tiet de ruimte waar de Stack zich 
bevindt altijd vast, De ruimte ligt vast van adres #E100 — 
#OIFF. Vandaar dat bij iedere 65U2 computer hier RAM sehzusen 
zit. 

De stack Kan worden voorsesteld ais een boek met 255 bladzijden. 
ledere bladzijde stelt 1 byte voor, Als iets op de stack sezet 
wordt, is dit altijd van acheraf, dus de microprocessor besint 
te schrijven op biz. 255 en gaat zo naar voren. (254, 255 enz. } 
De 6502 moet bijhouden waar voor het taatst iets is neer gezet 
Hiervoor is: om het voarbaetd van het boek nos maar „ven te 
sebruiken, een soort bladwijzer aanwezig. Deze bladwijzer heet 
de stackpointer. 

Het hooseste byte van de stackpointer is altijd #81, want de 
stack zelf liep immers van #9109 tot HOIFF. Alleen het tow-byte 
van de stackpointer kan iedere waarde aannemen. Vandaar dat de 
stackpointer een Ì bytes reaister is: want de stackoointer 
‘weet’ dat het hish-byte altijd #@1 is, 





Wat sebeurt er als be \ 





2 setatten op de, star 


Kk sezet worden ? 





Wet, staet dat de stack ‘leeg’ is: (bijvoorbeeld na een ' BREAK), 
dus de stackpointer staat op #81 FF 

Het eerste setal saat op de stack 

Vanwest bovenstaande aktie wordt de S.P, met 1 verlaasd 

De StackFointer bevat nu de waarde #FE 

Het twesde setal saat op de stack 

Weer ais gevote hiervan wurdt de 5.P. met Î verlaasd 

Enz. 

zie ook de teken ina) 


a ad 


kaar 9ebryikt de microprecessor de stack zoal voor? 


Ats de microprocessor hijvoorbesld gedracht Krijst om paar earn 
subroytine te sprinsen,: dan za: de S5o\r et Ad 
moeten onthouden waar hij moet teru ‘a de zsubrout:ne 
vattooid ís, Dit ‘onthouden’ sebeurd op Het. ve 
plaatsen van de stack in besias: ane: ow byte „en het 
hiah byte van de program COUMT 
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u 
“v 
s| 
| 


en se 
a) De Gale 
LDA@# 17 LDA® #20 


Stack PHA PHA 





de Atom en de 6502 

255 bytes stack ruimte is heel ers veel. Veel meer dan zelfs een 
roffesioneel systeem opit nödis za! hebben. Vandaar dat de 
software ontwikkelaars van de Acorn Atom de helft van de 
seschikbare stack ruimte hebben ‘afsesnoept’. De ruigtte van 
KOIDD tat HOIEF wordt b‚v. als inputbutfer sebruikt (als een 
aodracht of Statement wordt inaetikt, wordt het hier neersezet 
en na een bevestiging met de RETURN toets wordt op dit adres 
begonnen met interpreteren) De ruimte van #@140 tot #@17F wordt 
gebruikt voor strings afwerking. Hieruit voltat dat er effectieve 
stackruimnte overblijft van #B183 tot #UIFF. Dit is evensoed nos 
ers veel. Neem dat maar aan. 

Oek de prosrammeur kan sebruik maken van de stack. Hier voor 
zijn de votsende instrukties: PHA, PLA PHP en PLP. 

Met de PHA instruktie kan de inhoud van de Accu op de stack 
sezet worden, De stackpointer wordt automatich met 1 verlaasd, 
PHA betekent PusH Accu: vrij vertaald? duw de accu (op de stack} 
Met de PLA instruktie wordt de waarde weer van de stack 
afgehaald en in de accu sestopt. De stackpointer wordt nu 
{lnsisch) met 1 verhoasd. PLA betekent Pull Accu (steur ervan 
af) 

Met de PHP kan de inhoud van het vlassenresister op de stack 
gezet worden. Er wordt dus een Kopie semaakt van het status 
resister en dat verdwijnt naar de stack, PHP = Push Processor 
status 

Met PLP is het weer mogelijk om de Waarde weer van de stack af 
te halten en het in het vlassenregister te plaatsen. 

Het arote voordeel van een push instruktie is, dat de 
srammeur zich niet hoeft druk te maken waar een bepaalde 
waarde is neersezet. Het is ook mose Kk om de Xen Y resisters 
ar de stack te zetten, Dit kan niet in een keer. Eerst zal de 
Waarde van het X af Y resister naar de Accu moeten worden 
sekopieerd. Bijvoorbeeld zot TXA, PHA TYA, PHA. Beide resisters 
staar nu op de stack, 








Er moet wel voor sezorad worden, dat er netzoveel van de Stack 
moet warden afgehaald: ats dat er opsezet is, Dit Lijkt 
insewikkelder dan het is. Zoals verteld, maakt de mieroprazessor 
bev. gebruik van de stack bij het sprinsen naar en subroutine, 
Voorbeeld: Stel dat vanaf adres #2809 naar een subroutine ap 
adress #82A0 is sespronsen. (JSR #B2A0) Op de stack staat nu in 
volsorde B2 28. Wordt nu bijvoorbeeld in de Subroutine met sen 
PHA instruktie #2A' gezet en er niet vanaf sehaald,: dan zal bis 
een return subroutine instruktie (RTS) terus worden sespronsen 
naar adress #2A28, want de processor pakt twee waardes van de 
stack, Oe de stack stond: O8 28 2A. De twee taatste setat ten 
worden er afsenomen. Zie tekening. 





torfoo | PC lee 
C. hi 

ae | en 

arj 

ps 

ISR#8100 Lpae tra RTS 

PHA 

Een prosramma zal deze wat droge aflevering wat illustreren. Het 


prosramma stelt weinie voor, maar het maakt een duidelijk 
zichtbaar sebruik van de stack. Het programma omeft, na se 
‘run’d te zijn: een kort piepje als er een toets wordt 
insedrukt. Zo wordt een indruk van een ‘zeer dure en 
proffesionele terminal’ verkregen. Een 'BRERAK' lest het piepie 
weer het zwijsen op. 

18 REM TOETSPIEPER 

28 DIM LLS 

38 P=#28A0; £ 

48 JSR #FESG HAAL TOETS BINNEN 


52 PHA ZET ACCU OP DE STACK 
68 Tya KOPIE VAN Y NAAR A 

70 PHA ZET C Y > OP DE STACK 
SB TXA IDEM VOOR X 

98 PHA ee 


190 LDX #29 BLEEP ROUTINE 
118:LL2 LDY #20 

120 LDA #BOO2 SPEAKER 

138 EOR 24 TOGGLE SPEAKER 
140 STA #E00Z 

150:LLE DEY 

158 BNE LL3 


178 DEX 

180 BNE LL 

198 PLA HAAL £ X 3 VAN DE STACK 
228 TAX KOPIE VAN A NAAR X 
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LA IDEM VOOR € VÒ 
Tay n we 
PLA HRAL ACEU VAN STACK 

RTS: 3 

REM VERZET DE LEESVECTOR 

REM ZIE ATOM MANUAL 

IH20A=HAD: H2OB=#25 

END 

De stackpointer kan daor de prosrammeur zelf worden beinvloed. 
Dit komt niet zo vaak voor, Tijdens b.v, een RESET van de 6502 
gebeurt dit wel, want er moet met een schöne lei worden 
begonnen. Er zien twee stackpointer bewerkinss instrukties: TSX 
an TXS. TXS verplaatst het low byte van de S5.P. naar de waarde 
van het X reaister, TSX verplaatst de waarde van de stackpointer 
naar het X register. 

Tot slat: 

De stackpainter wordt in Atom basic nos al eens sereset. (op #FF 
Pas dus ap met gecombineerde basic en assembter 











Bkk ksb oke: 


* DE STACK LOOPT VAN #0189 — #O1FF 

* PHA EN PLA DOEN ACCU OP / VAN DE STACK 

+ PHP EN PLP DOEN VLAGGEN REGISTER OP EN VAN DE STACK 

+ 5 GETALLEN OP DE STACK? DAN OOK 2 GETALLEN VAN DE STACK '! 
* OPPASSEN MET DE STACK POINTER 


LEENDERT BIJNAGTE 


)LIST: CASSETTE-CATALCG 





18 DIM PPá REM Dit programma maakt een 

20 F, I=ATO1iP=#2000: £ REM katalogus van een band, 
SO:PPO JSRÉFBEESHVSPPIGRTS REM net zoals zCAT, met dit 
4O:PP1 BEQPPZ;LDYOO:JSRHF995 REM verschil dat nu alleen het 
50 JSRÉF7EC:BNEPPS REM EERSTE en het LAATSTE blok 
EO:PPE JSRHFECOI JSRHFBEZ REM van elke file wordt geprint. 


70 LDA#DI: BEGPP4 : LDAEDE: BMI PPG 
SO:PPA JSRHF3IEs JSRHF7ECHROLHDE 
98 BPLPPESINX:JSRHF7FI 

180 LDARFD, X3 JSR#FERL 

i1G:PPE JSRHFFED; BNEPPO 





120} iN. 
120 IN, “NAAM BAND"$P 
148 2#FE=Z 


145 REM PRINTER-BESTURINGEN VODR MICROLINE 





150 P,$5$278EESTI' '' EP" $TOEERIE 
160 PHFE=10 

17@ LI, #FCEE 

188 P. BESLI. PPO:P, SIEGE, 





4} 


10 DIM LL(32), ACGd) 
25 K=tEROT: Lek AOED M=HE1 DOS NSL 


30 J=#8FO0 

48 FOR g=1T02 

58 P„S2isDIM PC-t) E19 LINK LL& 

Â . 620 LINK LLS 

7G:LLZ LOXAD:LDAJHZE 638 LINK LLá4 : 

8O:LL1 STAT, Xs INXsBNELLI 547 FOR W=lTOC(10-5) #48) FWAITIN. 
38:LL2 STAL, Xs INXSENELL2 €50 GOTO 624 

i00:LL5 STANs X3 INX 5 BNELLT 668 END 

118 RTS 


LDX&8 
LDAK: Xs STAL, X 
143 INX:BNELLS 
150:LLB LDAM, X3 STAN, X 
160 INX:BNELLG 
17@ RTS 
1S0:LLS LDX905STXKEG 
138 LDAA#DF ; STAHEL 
Z0B:LLIG LDAL-#2, X3 CMPHEL ; BNELL 11 INCHSG 
ZiGttLit LDAL-#20, Xs CMPREL sBNELL 12: INCHEG 
Z20:LL12 LDAL-#1F: X4CMP#S1 $ BNELL 123 INCHES 
23G:LLIS LDAL-1: Xs CMP#B!; BNELL IS; INCHSG 
24BrLLià LDAL+E, Xs CMPRS1 5 BNELL iS: INCHSG 
2SB:LL1S LDAL+#IF, X5CMPHEL 3 BNELL 165 INCHE2 
26B:LLIE LDAL+#20: X5 CMPHB1 :BNELL 17 5 INCHSO Osoosh p 
Z7G:LL17 LDAL+#2L, Xs CHPHB1:BNELL1S: INCHEO 
2E0:LL1E LDA#SGS CMPD2s BEALL 20 
238 LDA#SE: CMPQZ: BEQLL 19 W 
300 LDRAR2D: STAK, Xs JMPLL A er 
Zi@:LL13 LDROHOF STAK, X ak b 
S20:LL20 LOAAD: STAKED: INK; BNELL1O 

SSOeLLZ1 LDAN-#21, X3 CMPHB1 1 BNELLZ2: INCHEG Dn: 
zo: LL22 LDAN-#20, X ; CMP#E1 ; BNELL ZS: INCHES B ; Le ì 
b LDAN-#1F, X $ CMP#B1 ; BNELL 24 ; INC#E0 e 
LDAN-1, X3 CMP#81 ; BNELL 25: INCHEG 

+1, 5 : 26: INCHEO : 

LDAN+1» Xs CHP#81 ; BNELL 263 INC mooooot f] 














3EG:LL2E LDAN+#LF, X5 CMP#B1 ; BNELL 27 ; INCHS0 

398:LL27 LDAN+#20, Xs CMP#81 ; BNELL ZS; INC#S@ 

4OD:LL2S LDAN+#21, X4 CMPHE1 s BNELL 29: INCHS0 _ 
G10:LL29 LDA#SO: CMPS2; BEGLLSI zb 
420 LDA#EGs CMPQI: BEGLLSO 

GE LDAR#283 STAM, Xs BNELL St 
&úO:LLI0 LDASROF STAM, X 

&SU: LLT LDAOAFSTAHEDS INXS BNELL2t 
4&8 RTS 

4703 

482 NEXT Q 

492 P.$6 

528 P.$12" riten” 
"510 M.B.V. DE CURSOR BESTURING"" | HIER 
528 TYPT U ERGENS OP HET SCHERM"" 
538 P. "EEN AANTAL *“O""" St: 

540 P. “DE FIGUUR VERANDERT NU STEEDS" 
558 P. "VOLGENS EEN VAST PATROON"’ 

SED P. "DE SNELHEID HIERVAN IS VARIABEL" 
S7@ IN." "UW KEUZE (1-10)"8 

530 P.&i2rrrr 

SS LINK LLG 

EBR IN. SX 


492 








Ea 


HET 


& 





et Hed 


SE! ttberekenns van FI teetst+ 











Etat op SUD gee aalen Hee 
':] 

50 DOOR: GEORGES CARON 

Eg 31 RUE SERAPHIN COFDJER 
78 62260, AUCHEL 

eg FRANKRIJK, 

53 


199 VOOR ACORN ATOM BEWERKT 
128 DODR: JJK WOLDRINGH 

3 BOTTEMRAHEERD 4 

148 3737 NE/ GRONINGEN 
158 TEL. B5Q-41432E3 
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LOZGEN, “HOEVFEL DECIMALENE (IAS: ‚Mm 
t CMEID/THIGDIM GAM 

LOISD-BiF, T=t TO Ms AAl=iEN, 

104 DON CMITSLUELO/LOELD) +1 

1108F.N=0 TO 1 STEP -1 

1118 AAL=AAL+HI PeleN+1 

1128 F.l=l TO M 

1158 D=DeF+AOTEN 

1140 
1158 
1168 
1178 
iEEN, 
122OF, I=M TO1 STEP —1 

B IF AAI =F AACT-IJ=AACI-1N +15 AAI=AAI-F 
Nt. 
IF MiED P‚,' “ZET PRINTER AAN "’ $2 

DP," “HIER VOLGT HET GETAL PI“' "MET *‚Z4M-i, " DECIMALEN: 
29=05AA1=RAL-100 

P‚"Z, “, AAL 

BF. I=2 FO M 


IF ARID P, "B" UIT: “HOBBYSCOOP* 


IF AAI{19 P."@" 



















1558 P,AAI REM: Volgens "Hobbyscoop" heeft dit 
15EÖN, programma ca, 12 uur nodig; 
1570P,' SEFIHEL=1ZEIE, Onze Acorn Atom doet 't in 


k uurist 


UITSPRAAK van een TH-prof (die zo'n 50 decimalen van PI uit s'n 
hoofd kende): 





"Op de TH werken we niet met graden, daar werken we met PI'e 
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FORTH * FORTH * FORTH * FORTH * PORTE * FORTH * PORTH 
14 


15.DE CASSETTE INTERFACE 

ATOM FORTH heeft een eigen cassette interface. Hiermee is het 
mogelijk geschreven programma's op cassette te zetten, en ze later 
weer in te lezen. Een programma wordt verdeeld in schermen. Elk 
scherm kan 8 regels van 64 karakters bevatten (totaal 512 bytes). 
In zo'n scherm staat het programma, zoals het vanaf een toetsenbord 
zou worden ingetypt, en dus niet een reeds gecompileerde versie, 
Men schrijft zijn programma met behulp van een editor in een 
scherm. De inhoud daarvan kan vervolgens gecompileerd, getest en 
eventueel verbeterd worden. Pas zodra het correct werkt zullen we 
het op cassette bewaren. Vervolgens gaan we dan verder met het 
volgende scherm, totdat het totale programma in een aantal 
opeenvolgende schermen is bewaard. 


Het commando om een of meerdere schermen te laden heet LOAD. Het 
verwacht dat er een nummer op de stack staat, dat aangeeft welk 
scherm geladen moet worden. Men kan zijn programma's dus alleen 
nummers geven en geen naam. De schermen mogen genummerd worden van 
0 tot 999. Om zelf programma's te schrijven in schermen is het 
noodzakelijk de beschikking te hebben over een editor. ATOM FORTH 
heeft zo'n editor. Deze moet worden geladen door: 


6 LOAD 

De computer zal nu reageren met: 

»>6 PLAY TAPE 

We kunnen nu de cassette starten en vervolgens op de spatiebalk 
drukken. De schermen 6 tot en met 14 worden nu geladen. Na elk 
scherm dat geladen is zal de computer de inhoud daarvan meteen 
compileren. Vervolgens verschijnt er op het beeldscherm het nummer 
van het volgende te laden scherm. Nadat alle schermen geladen 
zijn, beschikken we over een complete editor en cassette 
interface. We kunnen de inhoud van een scherm zichtbaar maken met 
behulp van het commando LIST. Ook dit conmando verwacht dat op de 
stack het nummer van het gewenste scherm staat. Probeer het 
volgende maar eens 

14 LIST 


Er volgt nu een listing van scherm 14. Dit was het laatste scherm, 
dat we zojuist hebben geladen. Als we hadden getypt 


7 LIST 
dan zou de computer hebben gereageerd met 
>7 PLAY TAPE 


De computer moet scherm 7 eerst weer laden in zijn geheugen. De 
schermen worden bij het laden in de tape-buffer gezet. 
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We kunnen zelf de opdracht geven om het in de tape- buffer 
aanwezige scherm te compileren. We gebruiken daarvoor het 
commando: 


ENTER 


We zullen dit woord voornamelijk gebruiken in de fase, waarin het 
programma nog geschreven wordt. Via de editor schrijven we dan een 
scherm vol. Met ENTER compileren we dit scherm. Vervolgens testen 
we het en veranderen wat nodig is. Zodra het werkt, kunnen we het 
op cassette zetten. Daarvoor staat het commando 


SAVE 
tot onze beschikking. De computer zal reageren met 
RECORD TAPE 


Na een druk op de spatiebalk zal het programma worden opgenomen op 
de cassette. Zodra de computer klaar is verschijnt de melding 


STOP TAPE 

ten teken dat de computer klaar is. 

We hebben al gezien dat na een LOAD opdracht de computer meer dan 
een scherm achter elkaar kan laden. Door aan het einde van een 


scherm op te nemen het woord 


=> 


geven we aan dat er nog een volgend scherm geladen moet worden. De 
schermen moeten opeenvolgend genummerd zijnl 

Als -—> niet is gebruikt aan het einde van een scherm, dan stopt 
het laden en compileren aan het einde van dit scherm of bij het 
woord 


s 





Bij dit woord stopt het interpreteren, zodat de rest van het 
scherm commentaar mag bevatten. We kunnen ook op andere plaatsen 
op het scherm commentaar opnemen, maar dat moet dan tussen haakjes 
geplaatst worden. 


Het nummer van het huidige, in de tape-buffer aanwezige, scherm, 
wordt bewaard in de variabele SCR . 

We kunnen dus een listing opvragen van dit scherm door te typen: 
SCR @ LIST 


We zullen zien dat de EDITOR van ATOM FORTH daarvoor een korter 
commando kent . 
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16. DE EDITOR 

Als we willen beginnen met het programmeren van een programma, dan 
zal eerst de tape-buffer moeten worden leeg gemaakt, we moeten een 
nummer geven aan het scherm, we moeten dit scherm laten zien en 
vervolgens moeten we nog aangeven dat we editor-commando's willen 
gebruiken. (Waarom we dit moeten aangeven, zal een volgende keer 
worden behandeld.) Gelukkig kan dit alles in ATOM FORTH met een 
commando, ni: 


PROGRAM 
De computer zal dan vragen: 
FIRST SCREEN NUMBER ? 


Nadat we een nummer (0-999) hebben ingetypt, zal er een scherm met 
acht genummerde blanko regels verschijnen. We kunnen nu beginnen 
met het programmeren van ons programma. Bijvoorbeeld 


0 P { BEGROETING } 

1 P DECIMAL 

2 P : GROET .” HALLO, WELKOM BIJ ATOM FORTH. * 
3 P CR ( EINDE } ; 


Een listing van dit programma kunnen we krijgen door de opdracht 
L 
We kunnen dit programmaatje ook compileren en testen via 


ENTER 
GROET 


We zien dat het commando P de daarop volgende tekst zet op de 
gegeven regel, en dat het commando L een listing geeft van het 
scherm. De EDITOR kent de volgende commando's: 


Zet de daarop volgende tekst op de gegeven regel. 
Verwijdert de regel, en bewaart hem op PAD. Schuift alle 
volgende regels een piaats naar boven. 

Maakt de regel schoon. 

Zet de inhoud van de regel op PAD. 

Zet de inhoud van PAD op de gegeven regel. Alle volgende 
regels schuiven een plaats naar beneden. 

Vult de regel met de inhoud van PAD. 

Voegt een blanko regel tussen. 

Toont de inhoud van de regel, en bewaart deze inhoud ook in 
PAD. 


EA Org 


nx 


We zien dat de EDITOR een soort buffertje gebruikt, waar tijdelijk 
de inhoud van een regel kan worden opgeslagen. We noemen het 
beginadres van dit buffertje PAD. 

Oefen zelf eens met de EDITOR. TOT DE VOLGENDE KEER! 
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REM GRAPHICWINDOW 

REM 

REM AUTEUR: GERT DE JAGER 
REM PAPENDRECHT 
REM 

REM resin rotterdam 
REM 

REM ASSEMELER 

DIM LLCIJ,PC-tt 

PRINT $2{ 

FOR A=8 TO 1 


‘28E 
15O:LLO LDA #5E +X COORDINAAT GROTER DAN 255 


148 
150 
150 
178 
150 
198 
208 








bad 
458 
GEZ 
«7e 
GEB 
440 
Saa 
510 





ENE LL1l +JA? RTS 

LDA #&SD «YY COORDINAAT GROTER DAN 191 

ENE Lii +JA? RTS 

LDA #54 

CMP HEB vX KLEINER DAN ONDERSTE X-GRENS 

BCC Lil #JA? RTS 

CMP #82 +X GROTER DAN BOVENSTE X-GRENS 

ECS Lit #JA? RTS 

LDA #5C 

CMP #81 +Y KLEINER DAN ONDERSTE Y-GRENS 

BEC Lil +JA7 RTS 

CMP #87 «Y GROTER DAN BOVENSTE Y-GRENS 

BES LL +#J&? RTS 

JMP #F7AA +FOINT PLOT ROUTINE (CLEAR 4) 
sti RTS 


NEXT A 
PRINT &£ 

REM & COORDINATEN NODIG 

REM VOOR X: ONDER- EN BOVENGRENS 
REM VOOR Y: ONER- EN BOVENGRENS 

REM VOOR X1 B-255 ZIE JU ALIETS ? 
REM VOOR Y: 9-197 

REM ONDERGRENS MAG NIET GROTER 
REM ZIJN DAN BOVENGRENS 

REM VOORBEELD COORDTNATEN 

REM Xt BOVEN- EN ONDERGRENS 
7REO=O1 5 745 
REM Vr BOVEN- EN ONDERDRENS 
PEOL=DI 1 PHET=LED 

REM ZET GRAFISCHE MIDE 

CLEAR 4 

REM ZET NIEUWE PLOTVECTOR 
PRZEELLOKISES REEF er LO/ 256 
REM VOORBEELDPAOGRARME 

MOVE 128,36 

DRO (AESRNDAZSE), (RESRNDX192) 
GorG dsg 












JOYSTICK interface vonk de atom 


Deze interface zet de tijd die een bepaalde condensator nodig heeft 

om ontladen te worden,om in een getal,dat weggeschreven wordt op een 

zelf te bepalen geheugenplaats.De tíijd,om te ontladen,en dus de waar- 

de van dat getal wordt mede bepaald door de stand van de joystick. 

In de joystick zitten 2 potmeters, waarvan er een dient voor de x-as 

en de andere voor de y-as.,Bij een 1 Mhz clockfrequentie en een waarde 

van ongeveer 37 n voor timing capacitor a en b krijgt u getallen tussen 

1 en 255,De waarde van de joystick potm. moet dan 50K zijn (telec £.17,85) 
Voor andere getallen moet u de volgende formules gebruiken. 


Pulsduursgewenste getal x 9 us 5 eond.waarde=puldduur/t,1 x de weerstand. 
C in Farads, tijd in seconden, en weerstand in ohms. 

TRIGGER FROM PROCESSOR 

OUTPUT STROSE 










rens 
GaPaciTon 
* 


A RESET TRIGGEN 


TO PROCESSOR JOYSTICK 
woor une wr SJ PoTEnTIGMETEN 


ro beid en 
INPUT URE 
JOYSTICK 

ZOvERTIOMETER Te 


m 


vane 
jee 


UIT: "BYTE", SEPT, 1980 


De triggeraansluiting op PB 1 ‚dit is connectorpen 9 


Outputlijn 'a! op PB 2, dit is pen 8 
Outputlijn 'b' op PB 3, dit is pen 7 
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saserpisr roïrine voor hef lezen van Co Joys:io: 


opu. voor twee joysticks heeft u ook twee keer de hardware nodig 
en 5 poortlijnen extra, 


:LLl LDXy#0l entry één joystick 
BNE LLO geforceerde jump 
:LL2 LDX #03 entry voor twee joystick's 
:LLO LDA Q#02 initialiseer timer pointer 
STA #B802 
PHP interrupt status naar de stack 
SEI disable interrupt 
:LL3 ASL stel timer pointer in 
LDY.G 0 trigger timer in VIA 
STY #2802 laag naar 
LDYGe2 hoog 
STY #B802 
LDYÓ #FF initíaliseer teller 
sLL4 INY verhoog teller 
BIT #B802 test teller 
BNE LL4 hoog? doorgaan met tellen. 
PHA 
TYA 
STA #021C,X vrije geheugenplaats 
DEX 
BPL LL3 nog meer tellers 
PLP nee, haal status van stack 
zT8 
Link LLl : X waarde joystick 1 komt op #21C 
Y waarde hl Ld " {1D 


Eventueel bij Link LL2 (voor twee joysticks) 
X waarde joystick 2 op adres {21E 
Yn “ mee L21F 


Basic testprogramma: 10 LINK LLl 

20 PRINT ?423C,?#23D,';GOTO 10 
u krijgt dan twee rijen getallen X en Y die wisselen met de staid 
van de analoge joystick. 


Programma om lijnen op het scherm te tekenen: 
10 CLEAR 4 
20 DO LINK LLl; MOVE ?#21C,?/21D 
30 DRAW ?/21C,?#21D 
40 UNTIL @ 


4Q 
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10 '#zon=erIEEALd1 ir N 
20 '#z02=#RDLDALES }reouk AAN: 
ZO P.$izin=Dst=i:0=0: EDI IKEL =D 

&O DIM RRO15 

50 RESTORE 

EO FOR N=1TD17 

70 READ RRIN 

30 NEXT 

38 P. “WAT VOOR NEERSTAND ZOEKT U?" 

100 FIN. "(WAARDE IN OHMS) "XR 

110 P."""WAT 15 DE TOLERANTIE ** 

129 FIN. "SWAARDE IN X 1°4T 

150 FIF xR(=100 F=t  s6.a 















148 FIF *R(=1008 Ga 
158 FIF XR{=10000 Ga 
iEB FIF £R(=1008A0 Ga 


178 FIF «R(=1000200 F=120005G. a 
188 P." "WEERSTAND TE GRODT"$7%7#7$7$7512 
198a GOS, t 

200 IF L=2 THEN XO=XR 

218 M=D5DD M=Mt1 

228 FUNTIL RRCMI*F) =AR 
2TOnv=ls I=8 

ZaBle=lt1 

258 APEURRMHFERRIKV) / CRRMHFARRI KV) 
260 FIF XP)X0 Gel 

278 FIF PXE Bet 

288 IF Bei AND O=i GOTO c 

290 B=050=0 

208 IF 113 GOTO b 

210 IF MO102098 1-0: VeV#10:G. 6 
329 IF MOTIE MeMeisG.h 

T58 KKT: Tel 05 +GOTO a 

Z4@cIF LZ GOTO # 








358 XTeKK: GOS, t 


TED ZeisUeDs 0O=0: R=0 

z7Odu=U+ 1 

T88 KOT KPERRiKZ) / CKP-RRUHZ) 

230 FIF XO%0 Ost 

448 FIF XAILR Bel 

418 IF R=i AND O=i Gt 

429 BePsOe0 

438 IF VUOLE GOTO a 

a4Ö IF ZO 1D800D U=D:Z=Zk1056, d 

450 P‚$12'”' "WEERSTANDNIET GEVONDEN" ;?#E1=0 
GET BEEP 20, 20: END 

u7BeP. $12'' "RI = “RRMeF' ;7RE1=O 

488 P,“RE = *RRIHV'" 

430 FP."RCTOT) = "XP" 

538 FP, "U ZOCHT “%9" HMT 

SIB P. "DIT KONT AARDIG IN DE BUNJRT'"" 

SEG BEEP 15: 2OsLINKSFFELIG 

SEOFP.SIE'" "Ri = "RRMEE t 
548 P, "RI “RATey' 

550 RRIJSZ' 7 

558 FF RLTOT) e= "AD! 
578 Fi U ZACHT "AR" OHM" 17 

SE8 P."ZIT IK ER NIET VER NAAST!I"! 
SA BEEP 15, ZOrLINKHFFELSG. 02 

B8OtT KOR ATRAL 100 

E10 KHEKR+ILTAAR/ 108: 

EED RETURN 

EZ DATA 1, 14,15, 18 
EáB TND 























Freus Mepschen 


ne JorYysTICKE sa 


A 

SD ACORN 
COMPUTER CLUB 
"BRABANT-OOST” 


OP VELER VERZOEK HIER NOG ENKELE AANPASSINGEN VOOR DE JOYSTICK. 
OOK HIER WEER EERST DE SPELEN LADEN VAN TAPE: EN DAN DE VOLGENDE 


AANPASSINGEN IN TYPEN? 





UT 





P#3ID 
T&31DE=1 
T#31E1=8 
1700 [F] pou. raa1=0 
(200 _ _DOU.PO&I=0 


SPACE ATTACK 


S3OIFTORE=OG=G-2 
S4OIFTO&B=0G=G+2 
SLOIF?O8L R- 





ASTROBIRDS 


T#31DE=8 
T#&3lFa=2 
T#3eSbe=l 
T#ezesd=i 
22SIFT#AO=#13G 
230IFT#AOSD #2? 











CYLONATTACK 


?#3364=1l6 
REEN ded 
1#2384=8 
1#339B=2 





LUNAR LANDER 


bBOIFTQ&IS=0 

75D=D+(TOEB=ONMI2-CTARE=ONMNE 

1?0F.N=0 TO bIPLOT2e CRND Yet), (RNDYe 4) 
iN.rLI.#FFE3 RUN 





1433b9=10 
7#336B=10 
T8337te2 











AMOEBA 








BIOIFF=8I=1fer+1: Gos JP] 
B2OIFFe lt S= Ye?41s OSP 


230 CALLEEN REGELNR.) 
240IFFS>Ie.E) 
MARTIANS 
2#3813=2 
JAN WIJNEN 


Bi 


ACORN- GALG 





Dit artikel is niet bedoeld als een volledige beschrijving van 
het ACORN-CALC programma, maar alleen als een eenvoudige uitleg 
van de werking van het systeem. Voor een volledige beschrijving, 
zie het desbetreffende manual. 


ACORN-CALC is te beschouwen als een heel groot kladpapier, wat 
ingedeeld is in vakjes. 

Horizontaal 62 stuks: de letters Á t/m BK. 

Vertikaal 255 stuks: genummerd van 1 t/m 255. 

Het vakje links boven in de hoek wordt dus aangeduid als A1 en 
helemaal rechtsonder als BK255. 


Het beeldscherm is te beschouwen als een venster, waardoor we naar 
een klein gedeelte van ons kladpapier kunnen kijken. 

De bovenste 3 regels van het scherm zijn gereserveerd voor de z.g. 
header. 


Het gebruik: We kunnen de vakjes vullen met 1, Labels (etiket) 
2. Getallen 
3. Expressie's (formule) 


Het programma bekijkt zelf, of het een label, getal of een formule 
betreft! 

de kunnen de vakjes bereiken met behulp van de cursor, die op de- 
zelfde wijze bestuurd kan worden als we gewend zijn met de normale 
cureor. We kunnen de cursor ook sturen met het commando /G (goto) 
met daarachter de coördinaten van het vakje waar we heen willen, 
b.v. /G C8 

De schuine streep geeft aan, dat het een commando betreft. 

Alles wat we intikken, verschijnt op de 3 lijn. van de header. 
wanneer we intikken: 1983, dan verschijnt dit op de derde lijn, en 
na het commando RETURN wordt 1983 geplaatst in het vakje waar de 
cursor zich op dat moment bevindt, stel dat dit vakje A1 is. 1983 
verschijnt nu ook op de 2° lijn; deze lijn geeft de aktuele inhoud 
van het vakje aangewzen door de cursor. wanneer we gu de cursor 

1 plaatge: laten zakken, dan verdwijnt „1983 van de 2” lijn. we tikken 
nu in de formule A1+1 RETURN. Op de 2 lijn verschijnt de aktuele 
inhoud van vakje A2,nu dus de formule A?+1 maar let op!, in vakje 
A2 komt nu niet de fomule maar het antwoord van de formule te staan, 
dus i.d.g. 198h, Verplaatsen we nu de cursor 1 stap omhoog, dan 
komt op de 2’ lijn weer 1983 te staan (de inhoud van A1). Wanneer 
we nu intikken 1984 RETURN, dan overschrijven we de oude inhoud en 
we zien tevens dat in vakje A2 automatisch het antwoord van de for- 
mule A1+1 verandert in 1985. Dit nu is de kracht van het calcpro- 
gramma. de kunnen ons kladpapier vullen met allerlei getallen en 
formules en het geheel overzichtelijk maken door het tussenvoegen 
van namen en verduidelijkingen (labels). wanneer we één Betal op 
ons kladpapier veranderen, dan rekent het programma alle antwoorden 
van de fomules opnieuw uit. 

Het calcprogramma leent zich vanwege deze eigenschappen erg goed 
voor (financiële) planning, wanneer we bijvoorbeeld winstmarges 
willen uitrekenen die afhankelijk zijn van een aantal parameters 
zoals inflatie, rentestand, grondstoffenprijs etc.etc. 

We kunnen nu bekijken wat de resultaten zijn bij een bepaalde in- 
flatie. Veranderen we dit getal, dan wordt alles automatisch opnieuw 
doorgerekend. 


Klaas de Raad 
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Bacon 
HIERBIJ EEN PROGRAMMA VAN EEN CONTINU DOORLOPENDE Comuren cun 
CEMONSTRATIE VAN DE KARAKTERSET, MET GEBRUIK VAN "maman-oosT” 
DE SHUTFUNCTIE UIT ACORNNIEUWS JRG.2 NR.1 BLADZ. #4 


10 REM DEMONSTRATIE KARAKTERSET 
20 REM GEBRUIK JOSBOX OF TOOLKIT 
30 REM TINY VERSCHUREN 


vo el 

sdar.s12 140 IF A=?1 T.cH 

BO T#E1=0 150 B 

70 X=32 1e 0HRESTORE 

8 XXe 1 1d =0 

80 RESTORE 180 READ A 

rodgA=0 190 FOR R=l TO @;WAIT:NEXT 
110 READ A 200 SHUT A:P.S3a 

120 FOR P =1 TO 2:WAIT:NEXT 210 IF A=?1 TD 

130 SHUT A;P.5X eeo c.E 


esdijsHuT 450:P."s% U ZIET DE KARAKTERSET 3006"1 

240 IF X=tFF T.6.G 

eso eq 

260 END 

220 DATA #8, 112:176,240,210, 149, BA, 244, 24B, 252, 274,34 1, 409 
28D DATA 304, 368,432,270, 231,31, 23b, 232, 228, 20b, 134,21 
2adP=#2800:CLDY22IGLDAC222), Yr EOR225G STAC222) Yr INXELDA#HE, X 
300 ORAR33,X;BEGP+3G BRK; LDA#24, Xi CMP@2GBCSP-5;ORACL28; STA223 
310 LDA#IS,XsANDEIIF STA2EHGLDA#I5, Xs AND@22HG STAZZEIRTSGJ 

220 \werA=#28005 6.8 





List 
10 f,n=Oto16ip. 'ttttetet Joy-muziek dette jn. 
20 befbOO1 
30 do 
4O if?b=239jpl.9'8;g.a 
50 1f?b=247ipl.d?’ ;g-a 
60 1f?b=251ipl.g'8;G.a 
70 1f?b2253ipl.d'83g.a 
80 if?b=231jpl.e'#8;g.a 
90 if?D=2kIipl.b'48;g.a 
100 1f?b=249ipl.e'#83g.a 
110 1f?b2237jpl.a'#8;g.a 
120 if?o%2=0ipl."83g. a 
130 pl,d8 
140 au, 0 
rem auteur: hans otten. 
rem dit programma maakt d.m.v. de joystick geluid 
rem de hoogste toon krijgt u door de knuppel naar boven 
rem te duwen. 


rem de toon wordt met de klok mee steeds Lager, 





PROGRAMMA “sinusjes”" 





Het is aan te raden om zoveel mogelijk de lijnnummers te behouden 
omdat er in regel 15 een onrechtstreekse GOSUB wordt berekend. 


N.B. Lees "%" voor "4". 


1 ren door serge myngheer 
5 rem met toolbox 

TJ pe$12 tree sinusjes*!…'……… 
8 f‚m=0 to 100swaitsn. 
10 dimaal 10), bbl 10) 

15 f.p=75 to 145 s.10;sgos.(p) 

25 if p=1b5jf.ge1l to 10 

30 if p=145jp=150jgos. (p) 

35 clearä;movea,b;f.i=0to c s.d;gos. (p+5)splotw, kx, hysn. 1 
45 f.t=8 to 120sbeepl, 1sL=-Lsbeepl, IjL=-ljn.L 

50 f‚,Ll#=120 to 1 s.-tjbeepl, 1jn.L 

55 1f p=150jp=145jn.g 


60 n.p 

65 p.$787$7$7$Tjf.L=120 to 256jbeepl, 1jn.L 

67 p,&42rstrrnnrn eindeP tr: 
70 end 


75 a=Ozb=OjCe14O1bijdeI1jwebjer, 

80 Ux= i+cos( 1} )/50s4yel itsinl 1))/503r. 

85 a=0jb=0jerI191;deItjwetjr, 

90 Ural iancos( 1})+1283hyel 14Sinl 1) }+963 hxelx/50; hy=hy/5Ojr. 
95 azx0OsbmOzCcrIhbbzdaIljweljn, 

100 Wxal24( incosl 15)+128}/50;hyel 24( itsin(1))+96)/50sr. 

105 ax0O;b=0fCe2600;d=2OjWeljr, 

110 Kxel2e(drcosl 1} )+128)/503zyel24+( iesin( 1))+96)/50jr. 

115 az0jbw0jcn9752sdeIOjwalger, 

120 x= 2+( i+cos{ 11)+128)/50shy=( 24(i+sin( 1})+96)/503r. 

125 a=0;b=0jCc29480; de 30 jzWweb ir, 

130 Uxal24( Í+cosl 1))+128)/5Ôzlyel 24( 14+stn(1))+96)/503r. 

135 a=128;b=96jC25OhijdeIjwebjr. 7 

140 Yx=24ircosl 1)+12803kya24dtsin( 1}+960 3 Ax=lhX/ 103 hy=hy/10jr. 
145 restoresf.get to 10jread q,rzaalg)e=rsbb(g)=asn. gin. 

150 a=128jbe=96scxaalg) sdebblg) weber. 

155 %x=24 i+eosl 1)+1280 ;hy=24 14+ Sint 1)4960 3 Ure kx/10 3 hy=hy/103r. 
160 dataù,512,6,690,7,728,8,816,9, 1449, 10,1230,11,770,5,975 
165 data2,504,3,504 

170 rem regels 7 t/m 10: initiauisatie 

175 rem regels 15 t/m 35: hoofdprogramma 

180 rem regels 45 eindgetuiden + definitief einde 
185 rem regels 75 formules + gegevens voor tekeningen 
190 rem regels 75 s tekening nr, 1 

195 rem regeis 85 tekening nr.2 

200 rem regels 95 tekening nr.3 

205 rem regels 105 tekening nr.à 

210 rem regels 115 1: tekening nr.5 

215 rem regels 125 tekening nr.6 

220 rem regels 135 tekening nr.7 

225 rem regels 145 tekening nr.8 t/m 18 
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LICHTING BI DEMONSTRATIE- PROGRAMA __sinusjes” 





Bij het napluizen van de verschillende interessesferen die 
(elk van ons) U heeft ingevuld op het INFO-formulier, stel 

ik vast dat velen onder U grote interesse tonen voor GRAFICS, 
Daarom dacht ik dat het interessant zou kunnen zijn om navolgend 
kiein programmaatje te laten afdrukken in ons clubblad, 

Het is geen “gecopieerd” programma. Ik heb alle gegevens per 
toeval gevonden tijdens eenpoging om een tekenprogramma voor 
de HP-85 om te schrijven naar ATOM-basic. 

Het programmaatje runt met de TOOL(box). Indien U een andere 
TOOL-(box, kit, ...) hebt, kan U het misschien aanpassen 

door rekening te houden met volgende gegevens 


BEEP x,y geeft een toon van toonhoogte x en duur y 
RESTORE is verplicht vbòr READ en DATA 

READ x plaatst de waarde van de DATA in x 

—= DATA X,X,X,X,... zijn de data voor READ 


Indien U echter geen TOOL (bex, kít,...) hebt moet U de 
lijnen 45, 50 en 68 vervangen door : 


5 FOR L = ® TO 20 ; WAIT : NEXT L 
69 PRINT #7 7 #7 


Daarenboven moet U ook de lijnen 145, 168 en 165 vervangen door 
145 AA(I) = 512; BB(I)=l;AA(2)=690;BB(2)=brenz..totsAA(IG)e= 
505; 
BB(IG)= 3 (deze getallen zijn af te leiden uit de data) 
147 RETURN 


Het programma neemt ongeveer 5 minuten om helemaal te zijn 
uit=-gerund. 
Ik hoop dat elk van U ookeens een kiein programma instuurt. 


Vriendelijke groeten, 


SERGE MYNGHEER 


‚n 
En 


TIPS mit het Noord'n, 


= Als we wet let Kommando STEP uit de Josbox cen machinetaal 
programma doorlopen dat gebruik maakt van de VIA (6522) 
Eran er vaak dingen fout, Dit is bijvoorbeeld het geval met 
de printerroutine (#FEFB — ÉFF3E), Oppassen dus, 


= Het spelletje RAKELLASIS geeft problemen bij lict opnieuw 
saven op de band, ihzelf heb het als volgt opgelost: 


Eerst het (Telec-) origineel op 300 baud laden wet 
KRUN*RAKELBASIS", daarna: 

break 

OLD 

regel 5 verwijderen 

218=f8C 

END 

regels 5,10,15,20 en 30 verwijderen 

regelt 600 veranderen ins 600 LINK#93D3;G.600 


Vervolgens kan het programma Opnieuw op de band worden 
gezet (eventueel op 1200 baud) door eerst in te typen: 
MSAVE"RAKETIBASIS"2900 3900 


lijerna moet de band iets worden teruggespoeld, Vervolgens 
KCAT en wachten tot het blok met startadres 3700 wordt 
bereikt, Dan (op het gehoor) wachten tot dit blok is 
afgelopen eu de recorder #0 snel wmogelijk uitschakelen 
(voordat het volgeude blok begint). Daarna intypent 
KSAVE"RAKETBASIS"SEON 9800 
Het laatste blok van het eerste deel (3800-3900, dummy- 
blok) wordt dan weer overschreven wet het cerste blok 
van het tweede deel, 
De komputer beschouwt nu de twee delen als één geheel 
(ze moeten wel dezelfde naan hebben). 


Het programma kan nu weer worden geladen en gerunt met: 
RFLOAD"RAKETBASIS" 
break 
OLD 
RUN 
Hier wordt RFLOAD gebruikt omdat de bloknunmners niet meer 
kloppen, het tweede deel begint weer met bloknummer O, 
XFLOAD trekt zich van deze Llohnummers niets aan, 


Deze methoile kan algemeen worden toegepast om twee 
programma's in verschillende tekstruimten als één geheel 
op de band te zetten. 


- Het is niet Hogelijk om in een expressie met twee strings 
de operators €>,>,S,>= eu <= le gebruiken, alleen = is 
toegestaan. 

Ir $E<28L PHEN ,,…. way dus niet. 
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_ Souwuilge programma's Zoals PlLLKO cu DAKADASE werken niet 
als ze in de tbkekaart wordeu gezet. 
Bij beide pie a's heerl nog cen machinetaalespedeelte 
dat na het Busic-progrvauta hout, Als het programma in de 
IÓkekaart (of op de band) wordt gezet woet uit stuk 
machinetaal natuurl worden meegenomen, liet eindadres 
van het gehele prograïuma kunnen we aflezen bij «CAT 
(startadres luutste blok + aautul bytes laatste blok), 
Als het programma in de VÓkehaart is gezel moet het eerst 
weer gehcel (iucl, machinetaal) orden gekopieerd naar 
de oorspronkelijke lohatie (bijv. #2900) voordat ermec 
Gewerkt kan worden, 









= Als we met het statement RELOC (Josbox) delen uit rom's 
of eprom's gaan verplaatsen kan het fout gaan met de 
eventueel aanwezige tabellen, Staat numelijk ergens in 
een tabel toevallig de hexekode voor cen instruktie die 
absolute adressering gebruikt (bijv. JSR, kode #20), dan 
worden de twee hierop volgende bytes in le tabel veranderd, 
Dit gebeurt echter alleen als het ‘adres’ gevormt door 
de twee bytes binnen bet verplaatste „oideelte ligt (in 
de praktijk komt dit niet zo vaak voor), Tabellen kunnen 
dus het beste met COPY worden verplaatst. 


= De transistor op de schahelkuart moet andersom, maar dat 
weet dacht ík iedere sclinkelkaart-bezitter al, 


— De kombinatie van de 16k-kaart en de schakhelkaart ep de 
bus geeft problemen, Aan dit onderwerp Kan een hele 
thema-avoud besteed worden en ik „al er daarom ook niet 
Xerder op in gaan. Inu ieder sseval is het goed om de 
CS-lijn van het gestapelde Luge gelleugen (TC6, pen 7) te 
verbinden met IC5, pen 1 (pootje uil socket buigen) 
«odat bij wdressering van dit geheugen de busbuffers 
UIC 2,3,%) niet wordeu vpensestuurde 


Johan de Goede 


Naschrift redactie: Algemene problemen bij de combinatie schakel 
kaart+geheugenkaart zijn bij dhr Borghaerta niet bekend, Het *bin= 
nen de bus" houden van het gestapelde lage geheugen is sowieso 
aan te bevelen en bij gebruik ven de 16K-kaart zelfs noodzakelijk! 
Tenslotte nog een tipje van uw redacteur, uit de Randstad dus, 
Het betreft het DATA en READ statement van de Josbox. 

Als u tegen uw Atom zegt: READ $A , dus met een spatie ertussen, 
dan kunt u een string inlezen van maximaal 47 karakters. 

Zegt u evenwel: READ$A , dus zonder spatie ertussen, dan kunt u 
maximaal 48 karakters inlezen. Bovendien wordt een komma of een 
puntkomma in de string door het READ-statement beschouwd als het 
einde van de string, Knap vervelend, als je daar niet op bedacht 


bent. Het is maar een weet, 


Ton Otten, 57 


TIPS uit het Noord'n (vervolg). 


Laat jk alvast eens beginnen met te vertellen hoe commando's 
gelezen worden. 


Ik zal de in aanmerking komende geheugenplaatsen even noemen: 
dd Hier staat het ERROR nummer. 


gg 


ga In deze geheugen plaatsen staat het regelnummer. 
f3 Mier staat de karakter pointer, 

he Hier staat de statement pointer, 
1 
Li 


Hier staat de error vector (normaal # C9E7) 


Wat gebeurt er nu precies ? 
— Áls op het beeldscherm verschenen is : ERROR 17h en u toetst 


in P-19 dan verschijnt het error nummer weer. In dát geval dus 
174. 
= Wat doet de Atom eigenlijk met # djdt t/m # dHH6 2 
Stel dat je het volgende stukje programma hebt: 
1ff Az1; RETURN; X=1ff 
11f WAIT; XeX+h 
Eerst wordt het regelnummer ingelezen in # fffl en # gjgz 
(1ff dus), dan wordt de inhoud van #.fff3 met 1 verhoogd nadat 
de spatie gelezen ís, 


dan wordt de 'A' gelezen en de inhoud van # dff3 wordt 2, 
dan wordt de '=' gelezen en de inhoud ‘van ï g$P3 wordt 3. 
dan wordt de '1' gelezen en de inhoud van # PÉf3 wordt bk, 
dan wordt de ';' gelezen en inhoud van # fP3 wordt weer gf, 
maar de inhoud van # fff5 en ip: PEPE wordt nu '1'(highbyte = #, 


Llowbyte = 1}. 
Hierna begint het hele spelletje opnieuw. 


„- Als er iets gevonden wordt wat niet klopt volgens de atom dan 
wordt gesprongen naar waar de error vector heen wijst. 
Dus als je de error vector bijv, verzet naar een plaats waar 
een ander programma begint, dan wordt bij een error daarheen ge 
sprongen. 


Wat gebeurt er bij BREAK?? 
- 1 Hoge byte van adres stack ( # C55C } 


2 Lage byte + 2 van adres op stack 
3 Processorstatus op de stack 
k JMP (# FFFE) 
is # FFB2 voor de atom 
PFB2 Eindigt met JMP(# g2gf2), normaal staat op # 292, # 2#3 de 
waarde # C9D8. 


Wijzigen is handig voor extra statements of nieuwe functies of 
betere error meldingen. 

Een groot nadeel is dat de Acorn Atom niet met zijn digitale 
vingers van # 22, #2f3 afblijft maar hem terug zet op # C9D8. 


Wim Schreuder 


LIST 
1DBREM /// COPY /// V1 
2OREM !C) K‚V, HOUTEN 1383 
TOP, SIE" wer tape to tape wett? 
GOP=4L3EDIP, SZIFEISRAFFEENSTRAIZEG RTS AGP. SE 
ZÔP, "FAST OR SLOW ? (F/S)"iLI. 28885 P. ' 
EBFC. IF BESFFe#SE SC. 
TOP, "FILENAME "sAs#TAsLI, KCDOB 
86 MCI2ME IDD 4D; INCDENEF 
ZOLI.PFSES:P, 87°" LORDED FROM TAPE *'* 
UOBPECCIMDS- IDD 4 1 DD INDA) 
11OG= ODS eN 1 DB) +7HDE 
IZOR= (IND 0120) +74DE 
1XBP, “FILEDATA: "7 
14BP, “ STARTADRESS #”,E&P' 
158P. " ENDADRESS «an 
IEAP, * EXECADRESS W".&R' 
178P,"" (PRESS SPACE) "sL1. #FFEL 
188! MCBEPs 'KCDER; "ACFERE2OO: HDI =RELDD+LQ-P) +1) 
IGP. SIA" van taoe to tape var. 
200P. "SAVING FILE: "$#149"" 
21BP, "FAST OR SLOW 7 (F/S5)"sLI, HEEBOIP. 7 
2E0EC.3IF BERFFERST SC 
2E8LI. KFRES 
240P. 87°" SAVED TD TAPE"'' zE. 





Noot vou de redavties 

Fen bijzonuver buutis proerauma'tge, dat ae hele uiatooK, modig ou 
het te rapiëren profranmi te laden en wer te suhryven, bereleidt 
door alle henodijde gepwevens te vraen. Het besturen van het Ux 


doet het programma'tje zelf, incìusiet het instellen van F,On os 


s0s (Josbox modie!}, Het te copiëren progrimma wordt retanen in 


het vadec-kik, ongeacht het startadres of exevcutae-arttes op de 


band, 
liet startadres cn net executiealres vn de copie kunt u zelf orgen 
ven, dus HELU nivsen kan dit programma ook 





